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Chapter 1 
Introduction 



Pascal is a "modern" computer programming language designed by 
Professor Niklaus Wirth (of the Eidgenossiche Technische 
Hocheschule, Zurich, Switzerland) in reaction to the perceived 
disorder of contemporary programming languages. Originally 
intended as an aid to teaching rigorous and disciplined computer 
programming, Pascal has since gained international acceptance as 
a programming language for a multiplicity of applications ranging 
from writing compilers (including Pascal compilers) to 
controlling a grain elevator. Pascal is not an acronym for 
anything. Pascal is named after Blaise Pascal, the 17th century 
philosopher and mathematician. 

Pascal is one of the many derivatives of Algol-60. Algol 
introduced the notion of nested control structures such as 
if . .then. .else that form the basis of today's structured 
programming methods. In addition to the control structures, 
Pascal goes one step further with the notion that data structures 
play at least as important a part in rigorous programming as do 
control structures. The absence of an adequate data structuring 
notation was seen as Algol's most obvious deficiency. 

Pascal's major contribution to the advance in programming 
technology is the concept of user definable data types. This 
provides powerful facilities for defining new data types and data 
structures in terms of a few basic types. 

This reference manual describes the Pascal language as 
implemented by Silicon Valley Software Incorporated. Throughout, 
the term "SVS Pascal" means the Pascal implementation as 
described in this reference manual. 
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1.1 Overview of the Pascal Language 

A Pascal program consists of a series of declarations and 
statements . Declarations serve to define program objects. 
Statements determine actions to be performed upon such objects. 
These two things, declarations and statements, serve to describe 
a computer program. 

Definable Pascal objects include variables , functions , 
procedures , and files . Declaring an instance of an" object 
requires an identifier and, usually, a type description. An 
object's identifier serves to identify that object so that it can 
be referenced later. The type associated with an object defines 
its operational characteristics, and in some cases, indicates a 
referential notation. 

It is important to note that all user supplied objects must be 
fully described, especially as to their type. Pascal is unlike 
many other programming languages in that it does not supply any 
default attributes for undeclared identifiers. 

One of Pascal's strongest points is the ability for users to 
define new types. Pascal supplies a small number of predefined 
or basic types, such as integer. Pascal then supplies notations 
for defining new (user defined) types, both in terms of the basic 
types, and in terms of other user defined types. 

A type can be described directly in a declaration, or, a type 
can be referenced by a type identifier which, in turn, must be 
defined by another explicit type declaration. 

In general, a Pascal object is only subject to operations that 
lie inside of a domain indicated by its type. For example, most 
binary operators are restricted to objects of the same type (for 
instance, characters and integers cannot be added directly) . 
These operational constraints are rigid, as are the rules for 
type identity and assignment compatibility. Departures from the 
rules have to be spelled out explicitly in terms of conversion 
functions . 

The basic data type is the scalar type, often referred to as an 
enumerated type. A scalar definition indicates an ordered set of 
values, where each identifier in the set stands for a specific 
value. 
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In addition to the definable scalar types, there are six. 
standard basic types , namely integer, longint, char(acter), real, 
double, and Boolean types. With the exception of the Boolean 
type, their values are denoted by numbers or quoted characters, 
instead of by identifiers. 

A type may also be defined as a subrange of a scalar type by 
indicating the lower and upper bounds of the subrange. 

Structured types are aggregates, defined by describing the 
types of their components, and by indicating a structuring 
method . The structuring methods differ in the way that 
components of a structured variable are selected, and the 
operations in which they can participate. Pascal provides five 
basic ways to construct an aggregate object, namely array, 
record, set, string, and file. 

An array has components which are all of the same type. A 
component is selected by a computable index . The type of such an 
index must be a scalar, and is determined at the time the array 
is declared. 

A record has components called fields which need not be all of 
the same type. A field selector for a component of a record is 
an identifier that is uniquely associated with the component to 
be selected. Unlike an array element index, a field selector is 
not a computable quantity. The field selectors are defined at 
the same time that the record is defined. A record type may 
consist of several variants . This means that different variables 
of the same record type may actually contain different 
structures. That is, the number and types of the components may 
differ between different instances of the same type. The 
particular variant which the specific variable assumes is 
indicated by a field called the tag fiel d, common to all variants 
of that record. 

A set is a homogeneous collection of elements selected from 
some base type . The base type might be a user defined scalar 
type or a subrange of some scalar type such as integer or char. A 
Pascal set is the collection of values comprising the powerset of 
the base type. That means, the set of all subsets of that base 
type. 

A string data type is a sequence of characters whose length can 
vary dynamically during program execution. A string has a 
maximum length (its static length) which is determined when it is 
defined. There are a rich set of intrinsic procedures and 
functions to manipulate strings. 

A file is a sequence of components of the same type. The 
sequence is normally associated with external storage or input 
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and output devices, so that files are the means whereby a Pascal 
program communicates with the world outside of the computer. 
Files can be sequential such that there is a natural ordering, 
and only one component of the file is accessible at any one time, 
or they can be random, such that any given component of the file 
is accessible on demand. 

Explicitly declared variables are called static , in that they 
are known at compile time (lexically static) . A declaration 
associates an identifier with the variable. The identifier is 
subsequently used to refer to that variable. In contrast to 
static variables, dynamic variables are created by executable 
statements. Such a dynamic creation of a variable yields a 
pointer (which substitutes for an explicit declaration) , that is 
subsequently used to refer to the dynamically allocated 
variable. Any given pointer variable may only assume values 
pointing to variables of a specific type, and is said to be bound 
to that type. A pointer may be assigned to other pointer 
variables of the same type. Any pointer can assume the value nil 
- a universal pointer that is not bound to a specific type. 

The assignment statement is the fundamental Pascal statement. 
It assigns a newly computed value to a variable or a component of 
a variable. New values are obtained by evaluating expressions . 
Expressions consist of variables, constants, sets, operators, and 
functions, operating on specified objects, to produce new 
values. Operands of expressions are either declared in the 
program, or are standard Pascal entities. Pascal defines a fixed 
set of operators that can be considered to define a mapping from 
given operand types into result types. Operators encompass the 
four groups: (1) arithmetic operators, (2) Boolean operators, (3) 
set operators, and (4) relational operators. 

A procedure statement causes execution of a designated 
procedure. This is known as activating or calling the 
procedure. Assignment and procedure statements are the basic 
elements of structured statements . Structured statements specify 
sequential, selective, or repetitive execution of their component 
statements. Sequential execution is obtained by the compound 
statement ; Conditional and selective execution by the If 
statement and the case statement; Repetitive execution is 
specified by the while statement, the repeat statement, or the 
for statement. 

A statement can be given a name (an identifier) , and 
subsequently be referenced via that name. The statement is then 
called a procedure, and its declaration is a procedure 
declaration . A procedure declaration can itself contain type, 
declarations, variable declarations, and further procedure 
declarations. These subsequent declarations can only be 
referenced within that procedure, and are thus said to be local 
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to the procedure. The program text that comprises a procedure 
body is called the scope of any identifiers declared local to 
that procedure. Since procedures may be declared local to other 
procedures, scopes may be nested. Objects declared in the main 
program block, not local to any procedure, are said to be global , 
in that their scope is that of the entire program. 

A procedure can have a number of parameters (determined at 
procedure declaration time) , each parameter being denoted by an 
identifier called the formal parameter . When a procedure is 
activated, each of the formal parameters has an actual quantity 
substituted such that that quantity is accessed by reference to 
the formal parameter identifier. These quantities are called 
actual parameters . There are three sorts of parameters, namely 
value parameters, variable parameters, and procedure or function 
parameters. A value parameter is an actual parameter which li" 
evaluated once. The formal parameter then represents a local 
variable conveniently- initialized to the value of the actual 
parameter. In the case of a variable parameter, the actual 
parameter is a variable - the formal parameter actually 
references and can alter that variable. Possible array indexes 
are evaluated before activation of the procedure or function. In 
the case of a procedure or function parameter, the actual 
parameter is a procedure or function identifier. 

Functions are declared in the same way as procedures. The 
difference is that a function returns a value. Pascal functions 
have intuitive similarities to the mathematical notion - a 
function is a computational entity that is applied to some 
arguments and generates a result. Pascal functions differ from 
the rigorous mathematical notion of functions in that they can 
have side effects. The type of the returned value must be 
specified as part of the function declaration. Functions can 
only return scalar types or pointer types. A function reference 
must appear in the context of an expression. 

Pascal procedures and functions are inherently recursive . That 
means that a procedure or function can call itself anew before 
the current activation is complete. On each activation, a fresh 
set of local data is created. Recursive activation can be direct 
(the reference is contained within the procedure or function 
itself) or indirect (the reference is from another procedure or 
function which in turn is referenced from the current procedure 
or function) . 
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1.2 Metalanguage 

A "metalanguage" is a collection of notations that describe 
another language. In this case the language being described is 
Pascal. The metalanguage used in this manual to describe Pascal 
is a modified version of the ubiquitous Backus-Naur Form, or BNF 
(first used to describe Algol). A description of the metalanguage 
follows. 

Syntactic constructs enclosed between "angle 
brackets" < and > define the basic language elements. 
Every language construct should eventually be defined 
in terms of basic lexical constructs defined in the 
remainder of this chapter. 

A construct appearing outside the angle brackets 
stands for itself, that is, it is supposed to be self 
denoting. Such a construct is known as a terminal 
symbol . Terminal symbols and reserved words appear in 
bold face text throughout this manual. 

The symbol ::■ is to be read "defined as". 

The symbol .. means "through", indicating an ordered 
sequence of things where only the start and end 
elements are specified. (The reader is left to infer 
the middle elements) . For example, the notation 
'a' .. ' z' means "the ordered collection starting with 
the letter 'a', ending with the letter ' z 1 , and 
containing the letters 'b', , c , ....'x', 'y' in 
between". In other words, all the lower case letters. 

The "vertical bar" symbol | is read as "or". It 
separates sequences of elements that represent a choice 
of one out of many. 

The metalanguage construct {...} (elements inside 
braces) enclose elements which are to be repeated "zero 
to many times". Although the braces are also used as 
one of the forms of comment delimiters in Pascal, this 
should not cause any ambiguity. The one case where 
ambiguity would occur is in the definition of comments, 
and this is explicitly pointed out at that time. 
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It is recognized that the syntactic descriptions are not 
completely rigorous in that they do not cover semantic issues. 
For example, the syntactic definition of a decimal number does 
not mention how big a number can be. Where the formal 
descriptions fall short they are augmented with narrative English 
prose. 



1.3 Elementary Lexical Constructs 



Pascal language lexical units - identifiers, basic symbols, and 
constants - are constructed from one or more (juxtaposed) 
elements of the alphabet described below. 



1.3.1 Alphabet 

SVS Pascal uses an extended form of the 
all text related processing. ASCII is th 
for Information Interchange. There are 
ASCII character set: 52 letters (upper 
lower case 'a' thru 'z'), 10 digits 
"blank") , 33 "control codes" (such as "ca 
feed"), and 32 graphic characters such as 
so on. Pascal also allows an additional 
data values, for a total of 256 possible 



ASCII character set for 
e American Standard Code 

128 characters in the 
case 'A' thru ' Z', and 
, space (often called 
rriage return" and "line 

colon, equals sign, and 
128 values to be used as 
data values. 



The Pascal compiler recognizes the following alphabet or 
character set: 



<letter> 
<digit> 
<hex digit> 
<ASCII graphic characters> 



Z', 



= 'A' 

= '0' . . '9' 

= <digit> | 'a' .. 'f 

= !"#$%&' ()* = 
+ - » . / < > ? \ [ 

§ * I ~ M 1 I : ] 



z', and ' ' 



'F' 



Note that the definition of <letter> above includes the 
underline character. 
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1.3.2 Pascal Identifiers 

Pascal Identifier s serve to denote constants, variables, 
procedures, and other language objects. 

<identifier> ::» <letter> { <letter> | <digit> } 

A Pascal identifier must start with a letter or an underline 
character. It can contain letters, digits, and the underline 
character. The underline is usually used to mark off spaces in 
the identifier to provide for readable and meaningful names. A 
Pascal identifier may be any length, but only the first 31 
characters are significant to the compiler. Upper and lower case 
letters are all "folded" to a single case in the compiler, making 
them equivalent. 

Examples of Identifiers 

here_and_there August_1979 Steve_and_Jef f 

_X25 Tau_Epsilon_Xi DragonsEgg 

UPanddown upandDOWN upANDdown 

The last three identifiers in the examples are equivalent because 
the compiler folds letters to a single case. 

Examples of Invalid Identifiers 

lst_character_must_be_a_letter 

mustn' t_have_odd_# $ " [_characters_in_it 

1.3.3 Numbers 

Numbers are used to denote integer, real, and double data 
elements. Integers are assumed to be in the decimal number base, 
unless designated as a hexadecimal number. 

<unsigned integer> ::= <digit> {<digit>} 

<unsigned real> ::=» 

<unsigned integer> .<unsigned integer > 

<unsigned integer>. <unsigned integer>E<scale factory 

<unsigned integer>E<scale factor> 

<unsigned integer>. <unsigned integer>D<scale facto. 
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| <unsigned integer>D<scale factor> 

<unsigned number> ::= <unsigned integer> | <unsigned real> 

<scale factor> ::= <unsigned integer> | <signxunsigned integer> 

<sign> : := + | - 

<hex number> ::= $<hex digit> {<hex digit>} 

Hexadecimal numbers are considered unsigned, unless they are 
explicitly written as 32-bit values with the most significant bit 
a one. For instance, the value $ffff is 65535 and not -1. The 
value $ffffffff is a negative number. 

integer numbers are represented internally in the two's 
complement notation. As a consequence, there is one more 
negative integer than there are positive integers. 

Values of type double ar designated by a letter D preceding the 
exponent part of the number. 

Examples of Valid Numbers 



666 

+99 -457 

$3e8 

0.0 

3.14159 

1.23D10 



unsigned decimal integer } 
signed decimal numbers 
a hexadecimal number 
the real number zero 



{ a double number 
Examples of Invalid Numbers 



5. 

.618 
5.E10 
2FC9 
F034 



should be a digit after the point 
should be a digit before the point 
should be a digit after the point 
Invalid decimal number 
An identifier, not a hex number 



1.3.4 Pascal Strings 

Sequences of characters enclosed in apostrophes are called 
strings. Strings of one character are constants of type char. A 
string of "n" characters, where "n" is greater than one, is an 
ambiguous constant that is either a string value, or is a value 
of the type packed array [1 .. n] of char; The exact type of such 
a string constant is determined from the context in which it 
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appears. 

A string constant which is just simply two juxtaposed 
apostrophes ' * represents a variable string constant of length 
zero. 

SVS Pascal provides for entering any character value into a 
string by coding its two-digit hexadecimal value preceded by a 
reverse slash \. This means that non-printing characters such as 
"BEL" and "ETX" may be entered into a string. A \ sign followed 
by a non-hexadecimal digit is simply that character. Thus '\Y' 
is equivalent to 'YV, '\\' represents '\' and '\3X' represents 
'\03X'. This last case is interesting in that leading zeros are 
implicit in the hexadecimal number if there is only one 
hexadecimal digit followed by a non-hexadecimal digit. 

An apostrophe in a string is represented by two juxtaposed 
apostrophes. The rules for reverse slash character 
representations above means that an apostrophe can also be 
represented by the string '\'', or even more rebarbatively by the 
string '\27'. 

<string> ::= '<character> {<character>} ' 

<character value> ::* \<two digit hexadecimal number> 

Examples of Strings 

'This is a string constant' 

'This string has an embedded ' ■ apostrophe' 

'here is how to get a \07 bell character in a string' 

'to get a back slash, just type \\* 

1.3.5 Pascal Labels 

A label is used to mark statements as the potential target of a 
goto statement. 

Pascal labels are unsigned integer constants in the range 
.. 9999. 

<label> ::* <unsigned integer> 
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1.3.6 Basic Symbols 

Pascal has a set of "basic symbols" which the compiler uses for 
specific purposes in the language. These basic symbols include 
selected identifiers (reserved words), graphic characters, and 
pairs of graphic characters. These basic symbols are used as 
keywords, operators, delimiters and separators. Such symbols are 
introduced throughout the body of this manual. 

Note that user-defined identifiers may not be the same as any 
Pascal reserved word. 

Identifiers (reserved words) used as basic symbols are shown in 
this manual in bold faced typefont. For example, procedure, 
else, and type are Pascal reserved words. 

There are two lists of basic symbols shown below. One is a 
list of Pascal reserved words and the other is a list of the 
special graphic symbols that Pascal uses. 

Pascal Reserved Words 



and 


else 


interface 


procedure 


unit 


array 


end 


label 


program 


until 


begin 


file 


mod 


record 


uses 


case 


for 


nil 


repeat 


var 


const 


function 


not 


set 


while 


div 


goto 


of 


string 


with 


do 


if 


or 


then 






implementation 


otherwise 


to 




down to 


in 


packed 


type 
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Pascal Special Symbols 
+ Adding Operator. 
- Subtracting Operator. 

* Multiplying Operator. 

/ Division Operator (for real and double data types) . 

:■ Assignment Operator. 

. Terminates a Pascal Compilation Unit; Separates integer from 
fraction in a real or double number; Indicates reference to a 
field of a record. 

, Separates items in lists. 

; Statement and Declaration Separator. 

: used after case labels, statement labels, variable and 
parameter descriptions. 

* string delimiter. 

■ Relational equality operator; Used in constant and type 
definition. 

<> Relational operator for inequality. 

< Relational operator for "less than". 

<- Relational operator for "less than or equal to". 

>» Relational operator for "greater than or equal to". 

> Relational operator for "greater than". 

( and ) encloses lists of elements; encloses parts of expressions 
that are to be considered indivisible factors. 

[ and ] encloses array subscripts and lists of set elements. 

{ and } comment delimiters. 

(* and *) are an alternative form of comment delimiters. 

~ pointer dereference operator. 
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.. indicates a range of elements. 

1.3.7 Conventions for Spaces 

Spaces (also called blanks) are used to separate lexical 
items. Identifiers, reserved words and constants must not abut 
each other, neither may they contain embedded spaces. 
Multiple-character basic symbols such as <= must not contain 
embedded spaces. 

Other than that, spaces may be used freely (to improve program 
readability for instance) . They have no effect, outside of 
character and string constants, where a space represents itself. 

1.3.8 Comments 

Comments in Pascal may appear anywhere that a space may appear , 
and in fact, serve the same purpose as do spaces. But note that 
a comment within a string constant is part of the string constant 
and is not really a comment. Pascal comments are enclosed 
between braces {...} or between the characters (* and *) . 

<comment> ::= { <any printable characters except "}"> } 

| (* <any printable characters except "*)" *) 

In the description above, the braces enclosing the comment are 
the comment delimiters, not metalanguage symbols. 

For historical reasons, Pascal accepts two forms of comment 
delimiters. The open and close braces { } can be used where the 
character set provides such. Most modern computer systems and 
terminals accommodate those characters. Those systems which do 
not accommodate the full ASCII character set can use the 
alternative forms of (* and *) to delimit comments. 

Comments that start with one kind of opening delimiter must end 
with the corresponding closing delimiter. For example: 

{ this Pascal comment is enclosed in braces } 

(* this comment uses the alternative delimiter *) 

{ this Pascal comment would go on for ever because *) 
(* does not close the comment. For that we need a 
closing brace } 

Pascal comments can span multiple lines, thus providing a 
"block comment" capability. 
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Chapter 2 
Defining Data Types 



One of Pascal's major attractions is the ease with which users 
can describe and manipulate data. An important aspect of 
structured programming technology is the ability to structure 
data as well as control statements. This is provided in Pascal 
through the notion of a data type. 

A type defines a collection of values that a variable, constant 
or expression may take on. A type has an associated size, but of 
itself reserves no storage space. Storage is only reserved when 
a variable is declared as an instance of that type. Although 
Pascal data types can be quite complex, they are ultimately 
composed of simple unstructured components. An example is the 
predefined type integer. Its size is two bytes (16 bits). The 
set of values it contains is -32768, ..., -1, 0, 1..., 32767. 

In addition to having a size and a set of values, a type has a 
collection of operations in which values of that type can 
participate. 

Pascal provides a number of predefined types (some of which 
were described in chapter 1) , as well as the means for users to 
define their own types. Section 2.2 of this chapter describes 
all predefined Pascal types. 

Type constructors are the means by which users can define their 
own types. Structured type constructors facilitate the 
definition of new and larger types based upon other existing 
types as components. 



2.1 Defining Constants 

A literal constant is a value that denotes itself - its value 
is manifest from its appearance. The integer 1776 and the string 
'Manila' are literal constants. A constant definition introduces 
an identifier that is a synonym for a constant. Using the 
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identifier is equivalent to using the associated literal 
constant. Whereas the string "3. 14159" is a literal constant, an 
identifier called "Pi" could be defined which is a synonym for 
the number. The identifier is then known as a constant 
identifier! or just a constant. 

"<constant identifier> ::■ <identifier> 



<constant> 



<constant definition> 



<unsigned number > 
<sign> <unsigned number> 
<constant identifier> 

<sign> <constant identifier> 
<string> 

<identifier> •■ <constartt>; 



The definition above means that a constant may be defined to be 
another constant, but prohibits constant expressions. 

2.1.1 Predefined Constants 

Pascal provides three constants that are automatically declared 
as part of the language. The three constants are: 



true 
false 

maxint 



Represents the truth value for a Boolean type. 

Represents the falsity value for a Boolean 
type. 

An integer constant representing the largest 
integer that Pascal can store. Maxint is 
currently defined as 32767. 



Examples of Constant Definitions 



Liters_per_bottle = 0.750; 
Bottlesjper_Case - 12; 
first_vowel ■ 'a'; 
Winery = 'Chateau Montelen; 
Carriage Return ■ '\0d"; 



standard bottle is 750 ml 
standard case 
a char constant 
a string constant 
carriage return character 
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2.2 Standard Types 



SVS Pascal has eight predefined types available 
integer 



longint 



real 



double 



integer type represents an implementation 

defined subset of the integers. It is 

equivalent to a subrange defined by a type 
definition that looks like: 



integer » -32768 



32767 



The integer data type therefore occupies 16 bits 
of data storage. 

is a long integer type. It is equivalent to a 
subrange defined by a type definition that looks 
like: 



longint - -2147483648 



2147483647 



The longint data type therefore occupies 32 bits 
of data storage. 

real type is a subset of the continuum of real 
numbers. Reals are represented in the "floating 
point" format which consists of a fractional 
part (a mantissa) and an exponent. The range of 
real numbers is approximately 
-3.4E38 .. +3.4E38, with a precision of 
approximately seven decimal places. In 
addition, the real data type can take on 
"extreme values", such as plus infinity, minus 
infinity, and "Not a Number" (abbreviated NaN) , 
which arise from overflow and division by zero. 
There is a detailed discussion of extreme values 
in appendix E - "Data Representations". 

double type is a double precision form of the 
real data type described above, and is a subset 
of the continuum of real numbers. Double 
numbers are represented in the "floating point" 
format which consists of a fractional part (a 
mantissa) and an exponent. The range of double 
numbers is approximately -1.8D308 .. +1.8D308, 
with a precision of approximately 15 decimal 
places. In addition, the double data type can 
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Boolean 



take on "extreme values", such as plus infinity, 
minus infinity, and "Not a Number" (abbreviated 
NaN) , which arise from overflow and division by 
zero. There is a detailed discussion of extreme 
values in appendix E - "Data Representations". 

Boolean type represents the ordered set of 
"truth values" whose constant denotations are 
false and true. Boolean is conceptually 
equivalent to an ordinal type specified by a 
type definition that looks like: 



char 



Boolean - (false, true) 

character type defines the set of 256 values of 
the ASCII character set, and is equivalent to 
the subrange defined by a type definition that 
looks like: 



text 
interactive 



char - '\00' .. '\ff' 

An unpacked char data item occupies one word or 
16 bits of data storage. A packed char data 
item occupies one byte or 8 bits of data 
storage. 

is equivalent to a packed file of char. 

is a file type the same as that of text, except 
that the standard procedures READLN and WRITELN 
treat the end-of-line in a way that is more 
suitable for interactive (terminal) devices. 



2.3 Defining Data Types 



Pascal data types (or just types for short) , are used to define 
sets of values that Pascal variables may assume and in many 
cases, a notation for referencing such variables. Pascal 
provides a small number of predefined types, reserved identifiers 
for these types, and a notation for defining new types in terms 
of existing types. 



Type declarations introduce new (user 
identifiers for those newly-declared types. 



defined) types, and 
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<type speo ::= <type identifier> ■ <Pascal type>; 

Type declarations can be used for purposes of brevity, clarity 
and accuracy. Once declared, a type may be referred to elsewhere 
in the program by its declared type-identifier. 



2.4 Simple Types 

Simple types are those that have neither structure nor 
components. The simple types are as follows: 

<simple type> ::» <scalar type> 

< standard type> 
<subrange type> 
<type identifier> 

2.4.1 Scalar Types 

A scalar type defines a well-ordered set of values by 
enumerating the identifiers that denote those values. A scalar 
type is also known as an enumerated type or an ordinal type. An 
ordinal type is represented By the ordered set of integers 

0, 1, 2, 3, , with the first identifier begin 0, up to the 

last identifier which is "n"-l, where "n n is the number of 
identifiers in the list. 

<scalar type> ::= (<identif ier> { ,<identif ier>} ) 

Examples of Scalar Type Definitions 

salad_greens = (Spinach, Lettuce, Coriander, 

Escarole, Watercress) ; 

bottle_sizes = (Fillette, Bottle, Magnum, Marie_Jeanne, 

Jeroboam, Imperial) ; 

mealtimes = (Breakfast, Elevenses, Lunch, Af ternoonTea, Dinner) ; 
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2.4.2 Subrange Types 

A subrange type represents a subrange of values of another 
scalar type. It is defined by a lower and an upper bound. The 
lower bound must not be greater than the upper bound, and both 
bounds must be of identical scalar types. 

Values from a subrange and values from its parent range (or 

another subrange of its parent range) can be assigned to each 

other and can enter into the operations of assignment, 
comparison, and other binary operations. 

<subrange type> ::« 

oubrange type identifier> | <lower> .. <upper> 

<lower> ::■ <signed scalar constant> 
<upper> ::■ <signed scalar constant> 

Examples of Subrange Type Definitions 

small_integer ■ .. 15; 

days_in_year ■ 1 . . 366 ; 

positive_integer ■ .. 32767; 

lower_case_letters - 'a' .. *z'; 

colors a (red, orange, yellow, green, blue); 

hot_colors = red .. yellow; 

cold_colors ■ green . , blue; 

hues * red .. blue; 

weekdays ■ Monday .. Friday; 

weekends ■ Saturday . . Sunday; 



2.5 Structured Types 

Structured types represent collections of objects. They are 
defined by describing their element types and indicating a 
structuring method . These differ in the accessing mechanisms and 
in the notation used to select elements from the collection. 

Pascal makes available five structuring methods: array, string, 
set, record and file. Each type is described in the subsections 
to follow. 



Page 20 Pascal Reference Manual 



Chapter 2 Defining Data Types 



A structured type may be given the packed storage attribute. 
This "advises" the compiler that the structure is to use data 
storage economically, by packing the components of the structure 
densely. Packing is often achieved at a cost of larger code size 
and slower execution speed. Furthermore, a component of a packed 
variable can not be passed as a var parameter to a procedure or 
function (this restriction applies to components of packed array 
of char) . A full discussion on how components are packed can be 
found in appendix E - "Data Representations". 

<structured type> ::■ <unpacked structured type> 

| packed <unpacked structured type> 



<unpacked structured type> 



2.5.1 Array Types 



<array type> 
< String type> 
<record type> 
<set type> 
<file type> 



An array type is a structure consisting of a fixed number of 
components, all of the same type (called the component type ) . 
Array elements are designated by indexes, which are values 
belonging to the so-called index t ype . The array type-definition 
specifies the component type as well as the index type. 

<array type> ::= array [<index list>l of <type> 

<index list> ::= <simple type> {, <simple type>} 

If "n" index types are specified, the array is an "n" 
dimensional array. Note that the above definition for an array 
type means that there are two alternative ways of specifying an 
array. By definition, a component of an array can be another 
array type. Thus a three dimensional array could be specified as 
follows: 

blivet - array [1..10, 11.. 20, 21.. 30] of blimps; 

widget - array [1..10] of array [11.. 20] of 

array [21.. 30] of blimps; 

The alternative forms of specifying array types are 
equivalent. The first form can be thought of as a shorthand 
notation for the second form. There is a similar choice of 
notations when specifying the index elements for accessing an 
array component. 
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When the index type is a subrange of the type integer, the 
type: 

packed array [1 . . n] of char 

is a special case. Objects of this type can be assigned and 
compared as single entities, whereas arrays of other data types 
must be assigned and compared element by element. A literal 
string constant can be assigned to a packed array of char, 
providing that the lengths are the same. The type of a literal 
string of length 'n', where 'n' is greater than 1 is the type: 

packed array [1 .. n] of char 

An object of type packed array of char can be assigned and 
compared up to a maximum length of 255 characters. See chapters 
4 and 5 for details. 
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Examples of Array Type Definitions 

rows = 1 .. 3; 
columns = 1 .. 4; 

bottle_quantities = array [bottle_sizes] of integer; 

standard_case = packed array [rows] 

of array [columns] 

of bottles; 

token = packed array [1 .. 100] of char; 

2.5.2 String Types 

SVS Pascal has a structured type constructor called string. A 
string variable has a maximum length (called its static length) 
which is determined when the string is defined. A string 
variable also has a dynamic length which can vary over the range 
through its static length during execution of a program. The 
standard function LENGTH can be used to determine the string's 
dynamic length. The maximum static length of a string variable 
is 255 characters. 

Strings can be manipulated by standard Pascal syntax, or by 
using string handling intrinsics, described in chapter 8 
"Standard Procedures and Functions". 

<string type> ::- string[<static length>] 

<static length> ::= integer constant in the range 1 .. 255 

A string constant which is ' ' (two juxtaposed apostrophes) 
represents a null or zero-length string. 

Example of String Type Definition 

manila - string [100]; 
punched_card « string [80]; 
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2.5.3 Record Types 

A record type is a structure consisting of a fixed number of 
components that may be of different types. For each component, 
or field of the record, the definition specifies both a type and 
an identifier used to reference the field. The scope of these 
field identifiers is the definition of the record itself. This 
means that the same field identifier may appear in more than one 
record. A field identifier is also accessible within a field 
designator when referring to a variable of this record type. 

Record components which are themselves records do not inherit 
the packing attribute of the containing record. Each component 
which is a record has independent packing attributes. 

A variant record caters to the need for a record composed of a 
portion which is always the same, plus one or more variants whose 
layouts differ between different instances of the record. The 
specific variant that is selected in any given instance is 
determined by an optional tag field . Such a structure is called 
a variant record or a discriminated union. The tag field is 
often called" a discriminant. The tag field's value indicates 
which variant the record assumes at a given time. Each variant 
structure is identified via a case label which is a constant of 
the tag field's type. Referencing a field of a variant that is 
inconsistent with the tag fields' s value is a serious programming 
error. 

<record type> ::= record <field list> end; 
<field list> ::= <fixed part> 

I <fixed part> ; <variant part> 

I <variant part> 

<fixed part> ::= <record section> {; <record section>} 

<record section> ::= <field identifier list> : <type> 

<field identifier list> ::= <field identifier> {,<field identifier>} 

<variant part> ::= 

case {<tag field>} <type identifier> of <variant list> 
<variant list> ::= <variant> {; <variant>} 
<variant> ::= <case label list> : (<field list>) 
<case label list> ::■ <case label> {, <case label>} 
<case label> ::= <constant> 
<tag field> :: = <identif ier>: 

Note that the <tag field> is optional in a variant record 
definition. 
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Examples of Record Type Definitions 



the example to follow illustrates an 
ordinary record called ComplexNumber , 
which contains two fields, namely the 
real part and the imaginary part. 
ComplexNumber =» record 

RealPart: real; 
Imaginary: real; 
end; 



The example below illustrates a variant 

record type which has different sections 

that are accessed depending on the tags. 

First we define an enumerated type which 

is used as the variant case selector. 

shapes ■ (rectangle, triangle, circle, polygon); 

angle = -180 .. +180; 

PositionRec = record 

x_position: real; 
y_position: real; 
case whatshape: shapes of 
rectangle: (base: real; 

height: real) ; 
triangle: (base: real; 

height: real; 
skew: angle) ; 
circle: (radius: real) ; 
polygon: (SideCount: integer; 
radius: real) ; 
end; 



2.5.4 Set Types 

A set type definition serves to define the base type that the 
set is to use in future manipulations. Sets are limited to 2032 
elements. The range of the set elements must be within the range 
.. 2031. 

<set type> ::•= set of <simple type> 
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Examples of Set Type Definitions 

salad_base = set of salad_greens; 
dressings = set of salad_dressings; 
lower_case = set of 'a' .. ' z'; 

2.5.5 File Types 

A file type defines a sequence of elements. A file is usually 
associated with external storage devices or communication 
devices. SVS Pascal supports the standard Pascal typed files, 
untyped files and an interactive file type more suitable for 
terminals. 

When a file variable "f" with components of type "T n is 
declared, there is an additional implied declaration of a so 
called buffer variable or "window", also of type "T". This window 
is referenced by the notation f" where "f" is the file variable. 
This window is used in conjunction with the GET and PUT 
procedures (see chapter 6 - "Input and Output") and serves to 
append components to the file when writing, and to access the 
components when reading from the file. 

<file type> ::*= file of <type> 
| file 

SVS Pascal supports untyped files. An untyped file can be 
considered to not have a window variable. Such files must be 
accessed using the BLOCKREAD and BLOCKWRITE functions described 
in chapter 6 - "Input and Output". 

A file of the pre-defined type text can be considered to be 
defined by a type definition of the form: 

text = packed file of char; 

Such a file is special in that the range of its components 
(characters) are extended to include an end-of-line marker. Such 
a file can then be conveniently structured into lines. The EOLN 
predicate described in chapter 8 - "Standard Procedures and 
Functions", covers how the end-of-line is detected. 

SVS Pascal also supports an interactive file type which display 
different behavior in the way that the READ, READLN and RESET 
intrinsics work. The differences are covered in chapter 6 - 
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"Input and Output". An interactive file is more suitable for use 
with interactive terminals. 



Examples of File Type Definitions 

block_access = file; 
numbers - file of integer; 
Capping_Line = file of bottles; 
Terminal » interactive; 
legible file = text; 



2.6 Pointer Types 



Explicitly declared variables are accessible by reference to 
the identifier used to declare them. Such variables are 
accessible during the activation (scope) of the procedure in 
which they are declared. These variables are called static , that 
is, lexically static. 

Variables may also be created dynamically, in other words, with 
no correlation to the program structure. These dynamic variables 
are created via the procedure NEW. Since such variables do not 
have an associated name, they are accessed via a pointer value 
which is generated when the variable is allocated. A pointer 
type is therefore a value which points to a variable of a 
specific type. 

There is a universal pointer value called nil, which belongs to 
any pointer type. It represents a pointer which points to no 
element. 

<pointer type> ::= *<type identifier> 



Examples of Pointer Type Definitions 



blackboard = record 
long_side: integer; 
short_side: integer; 
end; 
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cue = "blackboard; 

TwoWay = record 

next: "TwoWay; 
previous: "TwoWay; 
stuff: array [0 .. 10] of integer; 
end; 

SymTree = record 

name: string[31] ; 
LeftNode: "SymTree; 
RightNode: "SymTree; 
end; 



2.7 Type Identity and Assignment Compatibility 

Pascal has strict type checking such that objects of one type 
cannot be combined in operations with objects of a different 
type. There are two major concepts to be described here, namely 
identical types and assignment compatible types . 

2.7.1 Identical Types 

Two types, Tl and T2 are considered identical under the 
following conditions: 

. Tl and T2 are the same type. 

. Tl is declared as synonymous with another type T3, where T2 and 
T3 are identical. 



Examples of Type Identity 



type_x = integer ; 
type_y = integer; 
type_l - set of char; 
type_2 ■ set of char; 
id_type = type_l; 
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In the above example, the types "type_x" and "type_y" are 
identical, because they are defined to be the same type, integer. 
The types "type_l" and "type_2" are not identical, since they 
occur in different type definitions. The types "type_l" and 
"id_type" are identical however, because "id_type" is defined to 
be the same as "type_l". 

2.7.2 Assignment Compatible Types 

A value of type Tl is considered to be assignment compatible 
with a variable of type T2 if any of the following conditions are 
true: 

. Tl and T2 are identical and do not contain a file as a 
component. 

. Tl is a subrange of T2, or 

. T2 is a subrange of Tl, or 

. Tl and T2 are subranges of identical types. 

. Tl is assignment compatible with integer and T2 is real or 
double . 

. Tl and T2 are both variable string types. 

. Tl and T2 are sets of elements of types T3 and T4, and T3 is 
assignment compatible to T4. 
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Chapter 3 
Declaring and Referencing Variables 



This chapter covers two topics. First there is a discussion of 
how Pascal variables are declared in terms of the data types 
described in the previous chapter. Then there is a description 
of the way that variables of different types are accessed or 
referenced. 



3.1 Declaring Variables 



A variable has a type and a storage area in memory. At any 
given time, a variable takes on one value out of the collection 
of values that define its type. A variable is initially 
undefined, and remains so until it is initialized by an explicit 
assignment. 

All variables in a Pascal program must be declared explicitly 
and prior to their use. 

Variable declarations consist of a list of identifiers that 
represent the variables, followed by the type of the variable. 

<variable declaration> ::= 

<identifier> { ,<identif ier>} : <data type>; 



Examples of Declaring Variables 



Impedance : ComplexNumber ; 

Cha inHead : TwoWay ; 

TreeTop: SymTree; 

First, Middle, Last: integer; 

ValueFile: Numbers; 

CurChar : char ; 

Omega: real; 



a record variable 

another record 

and another 
{ plain integers 

a file variable 
a character variable 
a real variable 



t 
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3.2 Predeclared Variables 



SVS Pascal has five pre-declared variables. These are: 

input, output, and stderr 

default files associated with the standard 
input, the standard output, and the standard 
error output file, respectively. 

On those operating systems which do not have a 
standard error output file, the file stderr is 
directed to the same place as the output file. 

argc and argv are variables which provide access to the 
command line that invoked the current Pascal 
program. 

These pre-declared variables are covered in detail in chapter 7 
- "Program Structure". 



3.3 Establishing Variables 

Establishing a variable is a process that involves: 

1. determination of the variable's type. 

2. allocation of storage for the values that the variable 
takes on. 

Explicitly declared variables are automatically established on 
each entry to the procedure or function block in which they are 
declared. "Global" variables (declared in the outermost block) 
are established once and only once. 

Formal parameters of procedures or functions are automatically 
established on each activation of that procedure or function. 

So-called "dynamic" variables are explicitly established by 
storage management operations (for type determination and storage 
allocation) , and by assignment operations (for initialization) . 
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3.4 Lifetimes of Variables 



The lifetime of a local variable is that of the block in which 
it is declared. Allocation occurs on each entry to that block, 
and de-allocation occurs on each exit from that block. 



3.4.1 Global Variables 

Global variables are those variables declared in the outermost 
block (in the program block) . The lifetime of such global 
variables is the lifetime of the entire program. 

3.4.2 Lifetime of Formal Parameters 

The lifetime of a formal parameter is the lifetime of the 

procedure or function which that formal parameter is a part of. 

The formal parameter becomes established upon each entry to the 

procedure or function, and becomes undefined upon exit from the 
procedure or function. 

3.4.3 Lifetime of Dynamic Variables 

Dynamic variables are established (but not initialized) by an 
explicit allocation operation (such as NEW) . Dynamic variables 
become undefined when they are explicitly freed, or when no 
pointer variable points to them. Note that generally a pointer 
value has a finite lifetime which may be different from that of 
the pointer variable that can point to it. Local variables 
belonging to procedures and functions, cease to exist on exit 
from the block in which they were declared. Dynamic variables, 
on the other hand, cease to exist when they are explicitly freed 
or when no pointer variable points to them. Attempts to 
reference non-existent variables beyond their lifetimes is a 
programming error, usually with undesirable results from the 
programmer's viewpoint. 
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3.5 Referencing or Accessing Variables 

The method by which a variable or a component of a variable is 
accessed differs depending on the structuring method used in the 
type definition for that variable. There are three basic access 
methods: 

1. An entire variable is a variable of a simple type (no 
structure). An entire variable is referenced simply by 
giving its name. 

2. A component variable is a variable of array, record or file 
type. The access methods are explained below. 

3. A referenced variable is accessed through a pointer. 

<variable> ::- <entire variable> 

I <component variable> 

<referenced variable> 



3.5.1 Entire Variables 

An entire variable is denoted by its identifier. Since an 
entire variable has no structure, its identifier alone is enough 
to reference it. 

<entire variable> ::=» <variable identifier> 

Examples of Entire Variable References 

ChickenTeeth 

GiddyGoatHorns 

First 

3.5.2 Component Variables 

A component of a variable is denoted by the variable followed 

by some selector that specifies the component. The form of the 

selector depends on the structuring method used to access the 
variable. 
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<component variable> ::= <indexed variable> 

I <field designator> 
<file buffer> 



3.5.2.1 Referencing Indexed Variables 

A component of an "n"-dimensional array variable is denoted by 
the variable followed by "n" index expressions. An entire array 
(which can be a component) of an array can be denoted by giving 
"n"-l index expressions. In such a case, the entire last 
dimension of the array is indicated. This occurs when an entire 
array or an entire subarray is passed as an actual parameter to a 
procedure or function. 

<indexed variable> ::= <array variable> <subscript list> 

<subscript list> ::= I <expression> { „ <expression>} ] 

| [ <expression> ] { [ <expression> ] 

The { ,<expression>} in the definition above implies that there 
are as many expressions in the subscript list as there are 
dimensions in the array variable. Just as in defining an array 
type, there are two alternative methods for referencing an array 
variable. Either the subscripts can be listed, separated by 
commas, inside the brackets, or there can be a list of bracketed 
subscript expressions. 

The index expression types must correspond with the index types 
declared in the array type definition. 

Examples of Array Variable References 

ladder [top] 

stairs [flight] [step] 

Footing [Left, Center, Right] 

3.5.2.2 Referencing Strings 

string variables can be referenced as single entities (when the 
entire string is being operated upon) or single characters from a 
string can be referenced just like a packed array of char. 
Values can be assigned to string variables using assignment 
statements, string intrinsics or the READ or READLN procedure. 
String indexing is based from one (1) so that the expression on 
the string "s": 
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S [LENGTH (S) ] 

correctly yields the last character in the string. It is an 
error to reference a string "s" with an index less than one (1) 
or greater than LENGTH (s). 

3.5.2.3 Referencing Fields of Records 

A component of a record variable is denoted by the record 
variable followed by the component's field identifier. The field 
identifiers are separated by periods. 

<field designator> ::= <record variable>.<f ield identifier> 

It is an error to reference a field of a variant record that is 
inconsistent with the tag field for that variant. 

Examples of Accessing Fields in Record Variables 

{ The first example is a simple field reference } 
impedance . RealPar t 

{ The second example illustrates a reference 
to a field of an array of records } 

bottles [BurgundyType] .Loire 

{ The third example illustrates a 

deeply nested field reference } 
King_Caractacus. Court. Ladies. Faces. Noses 

3.5.2.4 Referencing File Buffers 

At any time, only the one component determined by the current 
file position (read/write head) is directly accessible. This 
component is called the "current file component", and is 
represented by the file's buffer variable. 

<file buffer> ::= <file variable> A 

<file variable> ::= <variable> 
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3.5.3 Pointer Referenced Variables 

referenced variable> ::= <pointer variable>~ 

<pointer variable> ::= <variable> 

If "p" is a variable which is a pointer to type "T", "p" means 
the pointer variable and its pointer value, whereas "p A " means 
the variable of type "T" that "p" references. 

Examples of Pointer Reference 

TreeTop.LeftNode" { Left Node in the tree variable } 
cue" .longside { gets Long Side of Blackboard } 
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Expressions 



An expression is a construct which defines the rules of 
computation for creating a value by performing operations 
(specified by operators) on operands (specified by variables, 
constants, and function references) . These newly-created values 
can then be used in assignment statements or can be used (in 
conditional expressions) to control subsequent program actions. 



<unsigned constant> : 



<f actor> 



<set constructor 
<element> 



<term> 



<simple expr> 



■ <unsigned number > 
<string> 

<constant identifier> 
nil 

■ <variable> 
<unsigned constant> 

<function designator> 
<set constructor> 
(<expression>) 
not <factor> 

:= I <element> {,<element>} ] 
:■ <expression> 
| <expression> .. <expression> 

:- <factor> 
| <term> <multiplying operator> <factor> 

:= <term> 
I oimple expr> <adding operator> <term> 
I <adding operator> <term> 



<expression> ::» 

<simple expr> 
| <simple expr> <relational operator> oimple expr> 
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4.1 Operators in Expressions 

Operators perform operations on a value or a pair of values to 
produce a new value. Most operators are defined only on basic 
types, though some are defined on most types. The following 
subsections define the applicable range, as well as the result, 
of the defined operators. 

With the exception of the 8 operator, an operation on a 
variable or field which has an undefined value, produces an 
undefined result. 



4.2 Address Evaluation Operator 

The 6 operator generates the address of a variable, user 
procedure or user function. Its precedence is above that of all 
other operators, but below that of array indexing and record 
field referencing. It can be applied to unpacked fields of 
records and unpacked array elements and to the dynamic variables 
pointed to by a pointer. It cannot be applied to components of 
any packed structure. 

Examples of the Q Operator 

§Uncle_Bill generates the address of a variable named 
"Uncle_Bill". 

dTypeWheel [tilde] 

generates the address of the "tilde"th element 
of the array "TypeWheel" . 



4.3 NOT Operator 

The not operator applies to factors of type Boolean or integer. 

When applied to type Boolean, the meaning is negation. That 
is, not true = false, and not false = true. 
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When applied to type integer, the not operator negates all the 
bits in the value. That is, it performs a one's complement 
negation of each bit in the operand. The result of applying the 
not operator to a value of type integer is type integer. 



4.4 Multiplying Operators 



The multiplying operators have the next highest precedence 
after the not operator. 



multiplying operator > ::=■ * | / | div | mod 



and 



The following table shows the multiplying operators, the 
permissible types of their operands, and the result types. 
Operands of the * (multiplication) and / (division) operators can 
be mixed integer, real, and double data types. 

If both operands of the * operator are of type integer, the 
result is of type integer. 

If either operand is of type double, the other operand is 
converted to type double, and the result is of type double. 
Otherwise, if either operand is of type real, the result is of 
type real. The result of the / operator is either real, or in the 
case when one or both operands are of type double, the result is 
of type double. 



Operator 



Operation 



Operands 



Result 



multiplication 
set intersection 



real, double, 
or integer 

any set type T 



real , double , 
or integer 



/ 1 division 1 real, double, 1 real 

1 | or integer | double 


div 1 division with 1 integer 1 integer 
1 truncation | | 


mod | modulus | integer | integer 


and 


logical and 
bitwise and 


Boolean 
integer 


Boolean 
integer 
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The div operator applies to values of type integer only and 
represents truncating division. div always truncates towards 
zero. It is an error to divide by zero. If the signs of the 
operands are the same, the result is positive; if the signs are 
different, the result is negative. 

The mod operator defines the modulus operation between two 
values of type integer. It is an error if the right operand of 
mod is zero. The interpretation of mod is: 

a mod b - a - (a div b) * b 

When applied to operands of type Boolean, .the and operator 
produces a result of type Boolean as one might expect. When 
applied to operands of type integer however, the and operator 
performs a bitwise logical and on the operands and produces a 
result of type integer. 



4.5 Adding Operators 

The adding operators have the next highest precedence after the 
multiplying operators. 

<adding operator > ::» + | - | or 

The following table shows the adding operators, their 
permissible operand types, and the result types. Operands of the 
+ (addition) and - subtraction operators can be mixed integer, 
real, and double data data types. 

If both operands of the + or - operator are of type integer, the 
result is of type integer. 

If either operand is of type double, the other operand is 
converted to type double, and the result is also of type double. 
Otherwise, if either operand is of type real, the result is also 
of type real. 
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+ +. 

| operator | 



+ . + 

operation | operand types | result type 



addition 



set union 



real, double, 
or integer 

any set type T 



real , double , 
or integer 



subtraction 



set difference 



real , double , 
or integer 

any set type T 



real , double , 
or integer 



logical or Boolean Boolean 


or 










bitwise or 


integer integer 

u , + 



When applied to operands of type Boolean, the or operator 
produces a result of type Boolean as one might expect. When 
applied to operands of type integer however, the or operator 
performs a bitwise logical or on the operands and produces a 
result of type integer. 



4.6 Sign Operators 

The "+" and "-" signs can be used as unary operators. They 
apply to integer, real, and double data types only. Applying a 
unary operator to a data type produces a result which is the same 
data type as that of the operand. 

<sign operator > ::=» + | - 

The table below shows the sign operators, their permissible 
operand types and their result types. 

+ + + + + 

| operator | operation | operand types | result type | 
+ + + + + 

I + I identity I real, double, I real, double, I 
I | I or integer | or integer | 
+ + + + + 

I - I negation I real, double, I real, double, I 
I I I or integer | or integer | 

+ + + + + 
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4.7 Relational Operators 



The following table shows the relational operators, their 
permissible operand types, and the result type. 



+ +. 

| operator | 



.+ + 

| result type | 
.+ , + 



operand types 



any scalar or subrange type 
set type 
pointer type 
packed array of char 
string 



Boolean 



any scalar or subrange type 
set type 
packed array of char 
string 



Boolean 



< > any scalar or subrange type 

packed array of char Boolean 
string 


1 in 1 any scalar or subrange type 1 Boolean 1 
1 1 and its set type respectively. | | 



Note that all scalar types define ordered sets of values. 



4.7.1 Comparison of Scalar s 



= , = and <>) are 



All six relational operators (<, <«, >, > 
defined between operands of the same scalar type. 

For operands of type integer, real, or double, the operators 
have their usual meaning. Operands of integer, real, and double 
data types are considered to form a hierarchy, with the integer 
data type at the bottom of the pecking order, the double data 
type at the top, and the real data type in the middle. If the 
operands are of different numeric types, the lower type of 
operand is converted (or promoted) to the type, of the other 
operand prior to the comparison. For example, in the expression: 

integer type < double type 
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the integer operand is converted to double before the comparison 
is made. 

For operands of type Boolean the relation false < true defines 
the ordering. 

For operands of type char the relation "a" op_ "b" holds if and 
only if the relation ORD(a) o£ ORD(b), holds, where op denotes 
any of the six comparison operators and ord is the mapping 
function from type char to type integer defined by the ASCII 
collating sequence. 

For operands of any ordinal type "T", "a" ■ "b n if and only if, 
"a" and "b" are the same value; "a < b" if and only if, "a" 
precedes "b" in the ordered list of values that define "T". 

4.7.2 Comparison of Booleans 

If "p" and "q" are Boolean expressions, "p - q" means 
equivalence, and H p <■ q" means implication of "q" by "p" . 

4.7.3 Direct Pointer Comparison 

Two direct pointers can be compared if they are pointers to 
identical types. To compare pointers of differing types, take 
their ORD. (See chapter 8 - "Standard Procedures and Functions"). 

Pointers may be compared for equality or inequality only. 

Two pointers with the value nil are always equal. 

4.7.4 String Comparison 

All six relational operators may be applied to string 
operands. The relational operators compare both packed array of 
char and string values. 

In the case of a packed array of char, both operands must be 
the same size. The maximum length of string comparison of values 
of packed array of char is 255 characters. That is, a variable 
whose declaration is like: 

var 

strtype: packed array [1 .. 255] of char; 

is the largest string variable that can be compared in one 
operation. 
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In the case of string comparison, the operands may be of 
different sizes. If the operands are of different sizes, 
trailing spaces are significant. That is, the string 

•A' 

compares less than the string 

"A ' 

Comparison of string operands or packed array of char operands 
denotes alphabetical ordering according to the ASCII character 
set collating sequence. 

Note that because a string data type is represented differently 
from a packed array of char, they cannot be compared with each 
other. On the other hand, a character string constant is of 
ambiguous type,, and so a string constant can be compared either 
to a string operand or to a packed array of char operand, because 
the type of the string constant is converted to the type of the 
other operand in comparison operations. 

4.7.5 Set Comparison 

The relation "scala^value" in "some_set" is true if the 

"scalar_value" is a member of the n some_set". The base type of 

the set must be the same as, or a subrange of, the type of the 
scalar . 

The set operations - (identical to) , and <> (different from) , 
<= (is included in) , and >- (includes) are defined between two 
set values of the same base type. For two sets "SI" and "S2" of 
the same base type: 

SI * S2 is true if all members of SI are contained in 
S2, and all members of S2 are contained in SI. 

SI <> S2 is true when SI = S2 is false. 

SI <= S2 is true if all members of SI are also members of 
S2. 

SI >= S2 is true if all members of S2 are also members of 
SI. 
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4.7.6 Non-Comparable Types 

Certain Pascal types cannot be compared. These include files, 
arrays, variant records, and records containing fields of 
non-comparable types. The exception to this rule is that packed 
array of char operands can be compared if they are the same 
size. 



4.8 Out of Range Values 

It is possible that expression evaluation can yield results 
which are outside of the range of values for a given data type. 
Expressions involving the real and double data types can generate 
several different extreme values. 

The extreme value of positive or negative infinity is a result 
either of overflow, or by dividing a non-zero value by 0.0. 

Underflow generates a value of zero. 

Dividing 0.0 by 0.0 generates a value of Not a Number (NaN) . 

Appendix E - "Data Representations" contains a description of 
the extreme values and their behavior in comparisons. 



4.9 Order of Evaluation in Expressions 

The rules of composition for expressions specify operator 
precedence according to five operator classes. The precedence is 
as follows: 

1. the "address of" § operator has the highest precedence. 

2. then the not operator. 

3. then the multiplying operators. 

4. then the adding operators. 

5. the lowest precedence is the relational operators. 
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Operators at the same precedence level are applied left to 
right, except where parentheses are used to override the ' normal 
order of evaluation. The order in which operators are applied is 
according to the rules above. The precise order of operand 
evaluation is undefined. Some operands may not be evaluated at 
all, if the value of the expression can be determined without the 
value of that particular operand. 



4.10 Compile Time Constant Expressions 

The Pascal compiler evaluates certain types of integer and 
Boolean constant expressions at compile time. integer 
expressions consisting of constant expression operands and the 
following operators are folded into constant expressions: 

Binary Operators -<>+-* 
Unary Operators - 

Boolean expressions consisting of constant expression operands 
and the following operators are folded into constant expressions; 

Binary Operators ■ <> and or 
Unary Operators not 

4.10.1 Dead Code Elimination 

The Pascal compiler recognizes code of the form: 

if FALSE then 
statement_l 
else 

statement_2 

and generates code for statement_2 only. Similarly, if the 
Boolean expression is TRUE, only statement_l is generated. 
Constant expressions which fold into constants are recognized as 
constant TRUE or FALSE. This feature facilitates keeping several 
versions of similar source in the same file without adding extra 
generated code after the code is compiled. 

Example of Conditional Compilation 
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const 

version = 10; 

if version a 7 then 

writeln(*Too old!') 
else 

writeln('Not too oldl'); 

The code fragment above, with the constant "version" set equal to 
10, has the same effect as a code fragment like this: 

writelnCNot too old!'); 
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Chapter 5 
Statements 



Statements denote algorithmic actions , and are said to be 
executable. Statements define the actions that are to be 
performed on program objects that were introduced via type and 
variable declarations, discussed earlier in this manual. 



5.1 Statement Labels 

A statement can be labelled by preceding it with an unsigned 
integer constant in tKe range .. 9999, followed by a colon. 
The statement can then be explicitly referred to by a goto 
statement. 



5.1.1 Scope Of Statement Labels 

The scope of a statement label is the body of the procedure or 
function in which the label is declared. This means that a goto 
statement cannot transfer control into a procedure or function 
body from outside the procedure or function. 



5.2 Assignment Statements 

The assignment statement replaces the current value of a 
variable with a new value derived from expression evaluation, or 
defines the value that a function variable returns. 

ossignment statement> :: = 

<variable> :=» <expression> 
| <function identifier> := <expression> 
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5.2.1 Assignments to Variables and Functions 

The part to the left of the assignment symbol (the :>) is 
evaluated to obtain a reference to some variable. The expression 
on the right side is evaluated to obtain a value. The referenced 
variable's current value is discarded and replaced with the 
expression's value. 

The variable on the left hand side of an assignment statement 
must be assignment compatible with the type of the expression on 
the right hand side. 

A string value may be assigned to a variable of type 
packed array of char, providing that the string value is the same 
length as the array object. The maximum length of such an 
assignment is 255 characters. 

Examples of Assignment Statements 



simple assignment to variable 
assignment of expression 
assignment of function value 
string assignment 



x :- 5 

y :- x * 10 + 18 

ch :- CHR(IO) 

rope :- 'hemp' 

poke :=» POINTER ($200) 

poke" !■ { clobber the system vector 



5.3 Procedure Reference Statement 

A procedure reference statement creates an environment for 
execution of the specified procedure and transfers control to 
that procedure. 

<procedure call statement> ::■ 

<procedure identif ierxactual parameter list> 
| <procedure identifier> 

<actual parameter list> ::* 

(<actual parameter > {,<actual parameter>}) 

<actual parameter> ::» <expression> 

I <procedure identifier> 
<function identifier> 
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The actual parameter list must be compatible with the formal 
parameter list of the procedure. An actual parameter corresponds 
to the formal parameter which occupies the same ordinal position 
in the formal parameter list. 

Oniy formal parameters that are value parameters can have an 
actual parameter which is an <expression>. Value parameters must 
be assignment compatible with the type of the formal parameter. 

Formal parameters that are var parameters must have actual 

parameters that are identical types. In addition, the actual 

parameters must not be packed objects or components of packed 
objects. 



5.4 Structured Statements 



Struct ured statements 
They 



^^__ are constructs composed of statement 

provide scope control, selective execution, or 



lists. 

repetitive execution of the constituent statement lists. 



<structured statement> : 



<begin statement> 
<if statement> 

<while statement> 
<repeat statement> 
<for statement> 
<case statement> 



5.4.1 BEGIN 



END - Compound Statements 



A begin statement specifies execution of a statement list. 
Exit from the statement list is either through completing 
execution of the last statement in the statement list, or through 
explicit transfer of control. 

<begin statement^ ::= begin <statement list> end 

<statement list> ::=* <statement> {; < statement:*} 



5.4.2 IF 



THEN 



ELSE Statements 



The if statement specifies that another statement be executed 
(or not) depending on the truth (or falsity) of a conditional 
expression. If the value of the conditional expression is true, 
the statement is executed. If the value of the conditional 
expression is false, either no subsequent statement is executed, 
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or the statement following an else clause Is executed. 

<if statement> : :=» 

if <Boolean expression> then <statement> 

| if <Boolean expression> then <statement> else .<statement> 

Because Pascal statements are open forms, it is possible to 
construct a chain of else if clauses to select "one out of many 
different conditions". 

In common with similar languages, Pascal has what is called the 
"dangling else" problem. If an if statement contains another if 
statement as a subordinate, when an else clause is encountered, 
which if statement does the else clause apply to? In Pascal, the 
else clause matches the most recent if statement that does not 
have an else clause. One of the examples below clarifies this 
point. 

Examples of If Statements 

{ example of a simple if statement } 
if day in [Monday .. Friday] then 

Get_up_and_go 
else 

Roll over 



if sun > yardarm then 
begin 

make_cocktails; 
prepare_snacks; 
relax 
end 
else 

f log_on 

{ 
if weather = raining 

sleep_in 
else if lawn = wet then 

clip_the_hedge 
else if grass > 6 then 

mow_the_lawn 
else 

turn_on_lawn_spr inkier s 



an if statement with a 
compound block } 



an else if chain 
then 
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{ A dangling else clause 



if condition_l then 1 

if condition_2 then 2 

if condition_3 then { 3 

statements 

else { goes with statement 

statements 

else { goes with statement 

statements 

else { goes with statement 
statements 



5.4.3 CASE Statements 

A case statement selects one of its component statements 
depending on the value of an expression. The expression is 
called the case selector . Each of the component statements is 
tagged with one or more simple scalar constants. The tags are 
called selection specifications (<selection specs> for short) . 
If the value of the selector matches that of one of the statement 
tags, that statement is executed. If the selector value matches 
none of the statement selection specifications, the statement (if 
any) following an otherwise symbol is executed. 

Note that this Pascal implementation differs from the ISO 
standard in the provision of the otherwise clause. ISO Pascal 
has no provision for "what to do if none of the case selectors 
match the selector expression". Strict Pascal considers this 
situation a run-time error. 



<case statement> 



;=• case <expression> of <cases> 
{otherwise: <statement>} end 



<cases> ::= <a case> {<a case>} 
<a case> : := 

<selection speo {, <selection speo} : <statement>; 

<selection speo ::= <scalar constant> 

Case selectors and the statement tags must be non-real scalar 
types. In addition, the case selectors and the statement tags 
must be of assignment compatible types. 

It must be stressed that the selection specifications which the 
component statements are tagged with are not labels in the Pascal 
sense, and as such, cannot be used as the target of a goto 
statement, and neither should they appear in any label 
declaration part. 



Pascal Reference Manual 



Page 55 



Statements Chapter 5 



Examples of Case Statements 

case wine_type of 

Champagne : 

Anything_goes; 

Cabernet: 
Roast_Lamb; 

Chardonnay: 
Veal_Piccata; 

otherwise: 

Hamburger; 
end; 

5.4.4 WHILE .. DO Statements 

A while statement controls repetitive execution of another 
statement until evaluation of a Boolean expression becomes 
false. 

<while statement> ::» while <expression> do <statement> 

The <statement> is repeated while the value of <expression> 
remains true. The <expression> must be of type Boolean. When 
<expression> becomes false, control passes to the statement after 
the while statement. If the value of <expression> is false at 
the time that the while statement is encountered for the first 
time, the subordinate statement is never executed at all. Thus 
the while statement provides a means to "do nothing gracefully". 
Contrast this behavior with the repeat statement described 
below. 
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Example of WHILE Statement 

while bytes_to_go > do 
begin 

if bytes_to_go <=» Blocks ize then 

TransferLength :» bytes_to_go 
else 

TransferLength := BlockSize; 
DoTransfer; 

bytes_to go :=» bytes_to go - TransferLength; 
BlockNumEer :■ BlockNumEer + 1 
end 

5.4.5 REPEAT .. UNTIL Statements 

The repeat statement controls the repetitive execution of a 
list of statements. The statements are executed until the 
condition at the end of the statement evaluates to true. The form 
of a repeat statement is: 

<repeat statement> ::=» repeat <statement list> until <expression> 

The expression controlling repetition must be of type Boolean. 
The statement between the repeat and until symbols is executed 
repeatedly until the expression becomes true. Note that the body 
of a repeat statement is always executed at least once, since the 
termination test is at the end. Contrast this behavior with the 
while statement described in the previous subsection. 

Example of Repeat Statement 

repeat 

consume_glassf ull ; 

ref ill_glass; 
until (Champagne_Volume <» 0) or (Consumer ■ Blotto) ; 

5.4.6 FOR .. DO Statements 

The for statement executes its subordinate statement 
repeatedly, while a progression of values is assigned to a 
control variable of the for statement . 

<for statement> ::= 

for <control variable> := <for list> do <statement> 
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<for list> ::■ <initial value> to <final value> 

| <initial value> downto <final value> 

<control variable> ::■ <identifier> 

<initial value> ::■ <expression> 
<final value> ::■ <expression> 

The control variable is set to the initial value. After every 
iteration the control variable is either incremented (to) or 
decremented (downto) until its value is greater than or less than 
the final value. 

The control variable/ the initial value, and the final valuev 
must all be of the same scalar type or a subrange of that scalar 
type. No part of the statement controlled by the for statement 
may alter the control variable during the execution of the for 
statement. 

Neither the control variable, nor the initial value, nor the 
final value, may be of type real. The control variable must be 
local to the procedure or function that contains the for 
statement. 

The value of the control variable is undefined on normal 
termination from the for statement. If the for statement is 
exited prematurely (via a goto statement) , the value of the 
control variable is defined. 



Examples of the FOR Statement 

{ initialize an array to zero } 
for index :■ 1 to 100 do 
row [index] :* 

{ scan from the end of an array } 
for where :=» 200 downto 1 do 

if what [where] ■ thing then 
foundit :* true 
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5.5 The WITH Statement 

The with statement provides a "shorthand" notation for 

referring to fields in a record. The with statement effectively 

"opens the scope" that contains field identifiers of a specified 
record variable. 

<with statement> :: = 

with <record variable> {,<record variable>} 

do <statement> 

Within the body of the with statement, fields of the specified 
record variable do not need to be qualified by the name of the 
record. 

If there is a local variable "x"'and a field "x" in a record 
which is the subject of a with statement, the statement: 

with x do 

"hides" the local variable "x" until the end of the with 
statement. 

A with statement which has multiple <record variable> fields is 
interpreted as nested with statements. The statement: 

with record_l, record_2, record_3 do 

is equivalent to the statement: 



with record_l do 

with record_2 do 

with record_3 do 

statement 
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Example of the WITH Statement 



var 

TreeTop: SymTree; 

with TreeTop do 
begin 

LeftNode :» nil; 

RightNode :- nil 
end { with } 

This is a shorthand for the following statements 



TreeTop. LeftNode :■ nil; 
TreeTop. RightNode :» nil 



5.6 The GOTO Statement 

The goto statement names as its successor/ a labelled statement 
designated by a label. 

<goto statement> ::» goto <label> 

The following should be noted concerning the goto statement and 
the label that it designates: 

The scope of a label is the procedure in which that label is 
defined. Therefore it is not possible (nor valid) to jump into a 
procedure from outside that procedure. 

Every label in a procedure must be declared in the label 
declaration part at the head of the procedure. 

Example of Goto Statement 

if status = error then 

goto 9999 { exit to end of procedure } 
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Chapter 6 
Input and Output 



Input and Output facilities provide the means whereby a Pascal 
program can communicate with the world outside the computer 
system on which it runs. 

SVS Pascal supports the input-output facilities as defined by 
standard Pascal, and additionally supports untyped (block access) 
files, interactive files, random access to typed files and unit 
input-output (direct access to the devices on the system) . 



6.1 General File Handling Procedures 

This Section covers the standard Pascal procedures for handling 
files of any type. The four supplied procedures are GET, PUT, 
RESET and REWRITE. 

6.1.1 The File Buffer Variable 

A Pascal file of some_type is a sequential file - its 
components appear in strict sequential order (ignore the SEEK 
procedure for the duration of this discussion) . Writing implies 
appending a component to the end of the file. Reading implies 
that the next component in sequence is obtained from the file. 
The following discussion applies only to typed files. 

Associated with each typed file variable there is an implicit 
"buffer variable", often called the file "window". The buffer 
variable can be thought of as a place holder where the current 
file component is held. The buffer variable holds the next 
available component when reading. When writing, it holds the 
component that will be appended to the file by a PUT procedure 
call. 

For a given file variable " f", the buffer variable is 
referenced by the notation " f"" . Consider the following 
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declarations: 

type 

whammo ■ file of gobion; 

var 

frammis: whammo; 
Curcomp: gobion; 

When the file "frammis" is opened for reading via the RESET 
procedure call, the first component of the file is in the buffer 
variable. An assignment statement of the form: 

CurComp :■ frammis*; 

assigns the contents of the buffer variable to the variable 
"CurComp". The contents of the buffer variable then become 
undefined. The next component from the file is moved into the 
buffer variable by a GET procedure call. 

When the- file "frammis" is opened for writing via the REWRITE 
procedure call, the buffer variable is undefined. An assignment 
of the form: 

frammis*' : = CurComp; 

assigns the value of the variable "CurComp" to the buffer 
variable. A subsequent PUT procedure call appends the contents 
of the buffer variable to the file "frammis". The contents of the 
buffer variable become undefined until another assignment defines 
it. 

For files of type interactive the handling of the buffer 
variable is different. In standard Pascal, when a file is RESET, 
the first element of the file is read and placed in the file 
buffer variable, means that the system would expect the user to 
type a character at the terminal, else the system would "hang". 
Thus a RESET on an interactive file does not perform an immediate 
GET. This affects the way that EOLN functions. When an 
end-of-line is read, EOLN becomes true and the character read is 
a space. 

6.1.2 GET - Get Component from File 

The procedure GET obtains the next element from a file 
(assuming there is a next element to be obtained) . . A call on the 
GET procedure of the form: 

GET(file) 
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advances the current file position to the next component in the 
file. The value of this component is then assigned to the buffer 
variable file". 

If there was no "next component" in the file, the value of the 
buffer variable is undefined and the predicate EOF (file) becomes 
true . 

If the predicate EOF (file) is already true, a GET (file) (in 
other words, trying to read past end-of-file) has an undefined 
result. 



6.1.3 PUT - Append Component to a File 

A call on the PUT procedure of the form: 

PUT(file) 

appends the value of the buffer variable file" to the file 
"file". The value of file" becomes undefined after the call to 
PUT. The predicate EOF (file) becomes true after the PUT. 

If the predicate EOF (file) was false before the call to PUT (in 
other words, there were intervening GET's on the file), the call 
to PUT has an undefined result. 

6.1.4 RESET - Position to Start of File 

A call to the RESET procedure of the form: 

RESET (file, string [, buffering option]) 

resets the current file position to the beginning of the file. 
If the file is not empty, the first element of the file is 
assigned to the buffer variable file* and the predicate EOF (file) 
becomes false. If the file is empty, the buffer variable file* is 
undefined and the predicate EOF (file) becomes true. 

If the file is an interactive file, RESET does not read the 
first element of the file. 

SVS Pascal provides for a second parameter to RESET. This 
parameter is the name of an existing disk file or device. The 
parameter takes the form of a string constant or variable. 

The third parameter to RESET is an option to determine whether 
the file is buffered or unbuffered. The buffering option may be 
specified as the keyword BUFFERED or UNBUFFERED, and it is 
described in the subsection following REWRITE, below. 
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6.1.5 REWRITE - Create or Overwrite a File 

The REWRITE procedure creates a new file of a specified name 
and discards any existing file of the same name. Thus a call of 
the form: 

REWRITE (file, string [, buffering option]) 

discards the current value of the file variable "file", 
effectively creating a new file. The value of the buffer 
variable "file"'" is undefined and the predicate EOF (file) becomes 
true. 

SVS Pascal provides for a second parameter to REWRITE. This 
parameter is the name of a disk file. The parameter can be a 
string variable or constant. REWRITE always creates a temporary 
file of the specified name. Upon closing the file, it can either 
be discarded, or the existina file (if any) can be replaced. 

The third parameter to RESu-r is an option to determine whether 
the file is buffered or unbuffered. The buffering option may be 
specified as the keyword BUFFERED or UNBUFFERED, and it is 
described in the subsection below. 

6.1.6 The Buffering Option on RESET and REWRITE 

The optional "buffering option" parameter to RESET and REWRITE 
can be specified as either BUFFERED or UNBUFFERED. On some 
operating systems, there is a significant difference in 
throughput between buffered and unbuffered input output. 

Normally, buffered input output is much more efficient than 
unbuffered input output. But, there can also be undesirable side 
effects in buffered input output, most notably that output does 
not appear at a terminal until a full buffer has been collected. 

The "buffering option" parameter provides a means to request 
either buffered or unbuffered input output for the file specified 
in the RESET or REWRITE request. A given operating system might 
well override the request? depending on the nature of the device 
on which the file resides. The standard situation is unbuffered 
input output, in the absence of the "buffering option" 
parameter . 
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6.2 Text File Handling Procedures 

Pascal provides standard procedures for controlling text-file 
input and output. These procedures apply to files of type text 
or interactive. 

6.2.1 READ and READLN Intrinsics 

READ and READLN read character strings representing numbers 

from a textfile and convert them into their internal 

representations. There is more on converting numbers later in 
this subsection. 

READ (v x , v 2 , ..., v ) 

is equivalent to a 

READ(input, v,, v_, ..., v ) 



READ (file, v, f v,, . •., v ) 
is equivafr 



equivalent to a sequence of READ procedure 
calls as follows: 

READ (file, v.) ; 
READ(file, v-7; .... 
READ(file, v^) 

If "ch" is a variable of type char, the two programs displayed 
here are equivalent: 

var var 

ch : char ; ch : char ; 

rasp: file of char; rasp: file of char; 

begin begin 

READ (rasp, ch) ch := rasp~; 

GET (rasp) 
end end 

If "v" is a variable of type integer, any subrange of integer, 
real, or double, the procedure reference: 

READ(file, v) 

reads a sequence of characters from the file referenced by 
"file". The sequence of characters should form a valid number 
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according to Pascal's rules for numbers (described in chapter 1). 
Note that if a real or double number contains a decimal point, 
there must be at least one digit on either side of the decimal 
point. When the number is formed it is then assigned to the 
variable "v". Blank lines and spaces preceding the number are 
skipped in the file. Reals are read in the same way as 
integers. Booleans cannot be read via a READ or READLN call. 
Structured types cannot be read. 

If the sequence of characters read from the file do not form a 
valid number according to the syntax rules, one of two actions 
are taken: if I/O checking is on, the Pascal run-time system 
issues an error diagnostic; if I/O checking is off, READ or 
READLN return zero (0) and the IORESULT code is set. See 
appendix A - "Messages from the Pascal System" for a list of I/O 
error codes. 



6.2.2 READ from a file of any type 

The READ procedure can also read from a file of any type. A 
READ procedure call of the form: 

READ (file, v., v», ..., v ) ; 
i z n 

is equivalent to the sequence: 

v, := file"; GET(file) ; 
v£ := file"; GET(file) ; 

v := file"; GET(file) ; 
GET (file) ; 

where the "v " are the list of variables to read into, 
n 

Note that the type of each variable in the list must be 
identical to the type of the elements in the file. 

6.2.3 WRITE and WRITELN Intrinsics 

The WRITE and WRITELN intrinsics append character strings to a 
textfile. Usually the character strings are generated by 
converting one or more Write parameters (see below) from their 
machine representations into external representations. 

The procedure WRITELN differs from the procedure WRITE only in 
that WRITELN sends an end-of-line to the output file after the 
write is complete. 
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<write intrinsio ::= WRITE (<file> <write parameter s> ) ; 

<writeln intrinsio ::= WRITELN (<f ile> <write parameters>) ; 

| WRITELN; 

<file> ::= <file variable>, 

<write parameters> ::= <write parameter> {, <write parameter >] 

The <file> parameter in all cases is a file variable which 
refers to the file on which to append character strings. If the 
<file> parameter is omitted, output is written to file output 
(the computer standard output) . 

6.2.4 Write Parameters 

The WRITE and WRITELN procedures can control the format of the 
individual elements that are written. Each parameter to WRITE or 
WRITELN is of the form: 

<write parameter> ::= <element> 

i <element>:<f ield width> 

I <element>:<f ield width>: <f raction size> 

<element> ::= is the value to be written. 

(see descriptions below) 

<field width> ::= <integer expression> 

<f raction size> ::= <integer expression> 

<element> is the value to be written. It may be of type char, 
integer, real, double, Boolean, string or packed array of char. 

<field width> and <f raction size> are optional. If 
<fraction size> is present, <field width> must also be present. 

<field width> specifies the size of the output field into which 
the converted value is written. If the converted value is 
smaller than <field width>, the field is filled out with leading 
spaces. 

<fraction size> is only applicable when the <element> is of 
type real or double (see below) . 
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6.2.4.1 integer Element 

The value of the integer expression is converted into a string 
representation of that expression in the base 10. The resulting 
string is placed right justified into the output field if a field 
width greater than needed is specified. If <field width> is too 
small to contain the resulting character string, the output field 
is expanded until it can contain the output string. If the 
integer expression is negative in value, a minus sign precedes 
the leftmost significant digit in the field. If the integer 
expression is positive, no space precedes the character string 
unless the <field width> is greater than the number of characters 
to be printed. If <field width> is omitted, the default field 
width is eight (8) characters. 

6.2.4.2 Real or Double Element 

A real or double element is converted much the same as an 
integer element, except that there can be a specification for the 
number of digits after the decimal point. In this case, 
<fraction size> specifies the number of digits to appear after 
the decimal point. The converted value is then written in so 
called "fixed point" notation. If <fraction size> is omitted, 
the converted number is written out in the floating or 
exponential notation. The diagram below illustrates the 
different forms of writing real elements. 

WRlTE(numbertf) 

results in a number of the form: 
+x.yyyyyE+nn 

where "f n is the total number of characters in the converted 
number. There is one digit before the decimal point and "f"-7 
digits after the decimal point. 

WRITE (number : f : w) 

results in a number of the form: 
xxx. yyy 

where "f" is the total number of characters (including the 
decimal point) , and "w" is the number of digits after the decimal 
point. 

The extreme real and double values are printed as follows: 
positive infinity prints as a row of + signs; negative infinity 
prints as a row of - signs; NaN (Not a Number) prints as a row of 
? marks. 
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6.2.4.3 Scalar Subrange Element 

A write parameter which is a scalar subrange is handled exactly 
as the scalar range of which it is a subrange. 

6.2.4.4 Character Element 

A write parameter which is a character is output as a single 

string character right justified in the output field. If 

<f ield width> is greater than one (1) , the field is filled with 
leading spaces. 

Furthermore, an <element> of type char means that the two 
programs displayed below are equivalent. 

WRITE (file, <char expression> : field width>) 

is equivalent to 



file" := • ' ; f these two statements repeated } 

PUT(file); {<field width> - 1 times } 

file" := <char expressions PUT(file) 

6.2.4.5 String Element or Packed Array of Char 

A write parameter which is a string or packed array of char 
expression is placed right justified into the output field with 
leading spaces. If <field width> is less than the dynamic length 
of the string expression, the output field is expanded to contain 
the string. If <field width> is omitted, the output field is the 
minimum length needed to hold the string. 

6.2.4.6 Boolean Element 

An expression which is of type Boolean is written as one of the 
standard reserved words False or True. If <field width> is 
greater than the length of the resulting string (5 for "False"; 4 
for "True") , the string is written with leading spaces. If 
<field width> is less than the length of the string, the field is 
expanded to contain the string. If the value of the expression 
is not a valid Boolean, the string "UNDEF" is printed. 
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6.2.5 WRITE to file of any type 

The WRITE intrinsic can also write to a file of any type. A 
WRITE procedure call of the form: 

WRITE (file, expr,, expr 2 » •••» expr ) ; 

is equivalent to the sequence: 

file" :- expr,; PUT(file); 
file* :» expr,; PUT(file); 

file" := expr ; PUT(file); 

where the expr are a list of expressions to be written to the 
file. n 

Note that the type of each expression in the list must be the 
same as the type of the elements in the file. Integer subranges 
are converted to the proper length as needed. 

6.2.6 SEEK - Random Access to Typed Files 

SVS Pascal supports random access to files of specific types. 
The SEEK procedure has two parameters, namely the file variable 
and an integer specifying the record number to which the file 
window should be moved. SEEK can only be applied to typed files 
that are not text files. The format of SEEK is: 

procedure SEEK(file: file_type; position: integer); 

file is the file variable for the specified file. 

position is the number of the record to which the file 
window is to be moved. Records are numbered 
sequentially from zero (0) . 

SEEK moves the file window to the "position" th record in the 
file specified by "file". The EOF and EOLN predicates are set to 
false. 

An attempt to PUT a record beyond the physical end of file sets 
the EOF predicate true. The physical end of file is the place 
where the next record in the file would overwrite another file on 
the storage device. 
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If a GET or PUT is not per formed between two SEEK procedures, 
the contents of the file window are undefined. 



6.2.7 CLOSE - Close a File 

CLOSE removes the association of a file variable with an 
external file. A CLOSE procedure call marks the file as closed. 
The file variable for that file is then undefined. If a file is 
already closed, a CLOSE call does nothing. The form of the CLOSE 
procedure is: 

procedure CLOSE(file [, close_option] ) ; 

file is a file variable. 

close_option is an optional parameter that controls the 
disposition of the closed file. "close_option" 
can be one of the following: 

normal The state of the file is set to 
closed. If the file was opened with 
a RESET procedure call, the "normal" 
option means that the file is 
retained in the file system. If the 
file was opened with a REWRITE 
procedure call, the "normal" option 
means that the file is removed from 
the file system. The "normal" 
option is the default. 

lock makes the file permanent in the disk 
system if it is a disk file. Any 
existing file of the same name is 
removed from the file system. If 
the file is not a disk file, a 
"normal" close is done. 

purge deletes the file from the file 
system if the file is on a 
block-structured device. If the 
file associated with "file" is a 
device instead of a block-structured 
volume, the device is set off-line. 
If no physical device or file is 
associated with "file", a "normal" 
close is done. 

crunch is the same as the "lock" option but 
in addition, truncates the file at 
the point at which it was last 
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accessed. That is, the end of the 
file is the position at which the 
last PUT or GET was performed. 



6.3 Block Input Output Intrinsics 

BLOCKREAD and BLOCKWRITE support random (block level) access to 
untyped files only. 

6.3.1 BLOCKREAD - Read Block from File 

BLOCKREAD reads specific blocks from an untyped file. The 
function definition is: 

function BLOCKREAD (file, where, blocks [ , relblock] ) : integer; 

file is an untyped file. 

where is a variable of any type. The variable must be 

large enough to contain the number of blocks 
requested. 

blocks is an integer value which specifies the number 

of blocks to read from the file. 

relblock is an optional parameter. If "relblock" is 
present, it represents the block number at which 
to start reading from. Blocks are numbered 
relative to zero (0) . 

if "relblock" is omitted, it implies a 
sequential read of the next block in the file. 
When the file is opened, or when the file is 
reset, the starting block number is set to zero 
(0). Thus a BLOCKREAD With the "relblock" 
parameter omitted starts reading from block 
zero, and reads sequential blocks on every 
subsequent call that has the "relblock" 
parameter omitted. 

The return value of BLOCKREAD is the number of blocks actually 
read. If the value is zero, it indicates either end-of-file or 
an error condition. If the value is greater than zero, it 
indicates the number of blocks read. If the return value is less 
than the number of blocks specified in the function call, it is 
possible that an end-of-file was encountered during the read. 
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6.3.2 BLOCKWRITE - Write Block to File 

BLOCKWRITE writes specific blocks to an untyped file. The 
function definition is: 

function BLOCKWRITE (file, where, blocks [ , relblock] ) : integer; 

file is an untyped file. 

where is a variable of any type. It must be large 

enough to contain the number of blocks to be 
transferred. 

blocks is an integer value which specifies the number 

of blocks to write to the file. 

relblock is an optional parameter. If "relblock" is 
present, it represents the block number at which 
to start writing to. Blocks are numbered 
relative to zero (0) . 

if "relblock" is omitted, it implies a 
sequential write of the next block in the file. 
When the file is opened, or when the file is 
reset, the starting block number is set to zero 
(0). Thus a BLOCKWRITE with the "relblock" 
parameter omitted starts writing to block zero, 
and writes blocks sequentially on every 
subsequent call that has the "relblock" 
parameter omitted. 

The return value of BLOCKWRITE is the number of blocks that 
were actually written. If the return value is zero, it means 
either that there was an error or that there is no room for the 
blocks on the device. If the value is greater than zero, it 
indicates the number of blocks written. If the return value is 
less than the number of blocks specified, it means that the 
end-of-file was encountered. 



6.4 Unit Input Output 

SVS Pascal provides UNIT input-output facilities that are 
compatible with those of UCSD Pascal. Unit input output provides 
the means to communicate directly with devices (units) on the 
system. 
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Note that because unit input output explicitly addresses 
specific units, data transfers to or from units cannot be 
re-directed at the system level. 

6.4.1 UNITBUSY - Check if Unit Busy 

UNITBUSY checks if the specified unit is busy (waiting for an 
input output transfer to complete) . If the unit is busy, 
UNITBUSY returns true, otherwise UnitBusy returns false. The 
function definition is: 

function UNITBUSY (UnitNumber: integer): Boolean; 

For example, UNITBUSY (1) is true if the is data available at 
the console. 

"UnitNumber" is an integer expression which is the number of 
the device to check. 

6.4.2 UNITCLEAR - Initialize the Unit 

UNITCLEAR cancels all input output to a specified unit, at.' 
then resets that unit to its initial state. The function 
definition is: 

procedure UNITCLEAR (UnitNumber : integer); 

The IORESULT function can be used to check if an error 
occurred. 

6.4.3 UNITSTATUS - Get Status of Device 

UNITSTATUS obtains status information for a specific device. 
The function definition is: 

procedure UNITSTATUS (UnitNumber : integer; 

var StatusRecord; 
Control: longint) ; 

UnitNumber is an integer expression which is the device 
number from which to return status. 

StatusRecord may be a variable of any type. Its size and the 
values returned are determined by the specific 
driver. 

Control is an integer expression whose value depends 
upon the specific input-output driver associated 
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with that unit. 



6.4.4 UNITREAD - Read from a Unit 

UNITREAD reads bytes from a specified device. UNITREAD 

performs * no limit checks on the transfer area. It is the 

caller's responsibility to ensure that the variable is large 
enough for the transfer. The definition is: 

procedure UNITREAD (UnitNumber: integer; 
var MemoryArray; 
Transf er Length: longint; 
BlockNumber: longint; 
mode: integer) ; 

UnitNumber is the number of the unit to read from. 

MemoryArray is the variable in memory into which the bytes 
are to be transferred. MemoryArray can be of 
any type. 

Transf erLength is the number of bytes to read. 

BlockNumber is optional. It is the number of the block from 
which the read is to start. Blocks are numbered 
from zero, and defaults to zero. BlockNumber 
only has meaning when the device is a blocked 
device. 

mode is optional and device-dependent. 

Note there is a potential problem with using the UNITREAD 
intrinsic to read a single character to an unpacked char object. 
Consider the following program fragment: 

var 

one_char : char ; 

UNITREAD (some_un it, one_char , 1); 

This example will not have the expected result. SVS Pascal 
represents a single unpacked char variable such as "one char" as 
a 16-bit word, with the character normally occupying the least 
significant eight bits. The UNITREAD intrinsic in the above 
example, however, reads bytes on a byte-by-byte basis, and so the 
single read places the byte into the upper eight bits of the 
n one_char n variable, leading to erroneous results. The 
"some_unit" unit number in the example is irrelevant to the 
discussion - it doesn't matter which unit is involved in the 
transfer . 
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In order to have this program fragment work correctly, the 
program would have to be changed as follows: 

var 

two_char : packed array [0 .. 1] of char; 

UNITREAD (some_unit, two_char, 1); 

which reads the data into the O'th element of n two_char" . 

6.4.5 UNITWRITE - Write from a Unit 

UNITWRITE writes bytes from a specified device. UNITWRITE 
performs no limit checks on the transfer area. It is the 
caller's responsibility to ensure that the transfer area is large 
enough. The definition is as follows: 

procedure UNITWRITE (UnitNumber : integer; 
var MemoryArray; 
Transf erLength: long in t; 
BlockNumber: longint; 
mode: integer) ; 

UnitNumber is the number of the unit to write from. 

MemoryArray is the variable in memory from which the bytes 
are to be transferred. MemoryArray can be of 
any type. 

TransferLength is the number of bytes to write. 

BlockNumber is optional. It is the number of the block from 
which the write is to start. Blocks are 
numbered from zero, and defaults to zero. 
BlockNumber only has meaning when the device is 
a blocked device. 

Mode is optional and device-dependent. 

Note that doing a UNITWRITE from an unpacked char object can 
lead to the same problems as described under UNITREAD, above. 

6.4.6 Notes On UNIT Input and Output 

UNIT input output performs the function of direct communication 
with a unit (device) in the computer system. When the Pascal 
system performs UNIT transfers, no code conversions or any other 
changes are done to the stream of bytes as they pass through the 
system. 
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As was mentioned in UNITREAD, the actions on a single character 
UNIT transfer to or from an unpacked char object do not lead to 
the expected results, because an unpacked char data object is 
stored as a word, with the actual character in the least 
significant eight bits. UNIT transfers are done on a strict 
byte-by-byte basis, and are unaware of the data type of the 
object to or from which the transfer is being performed. 

Similarly, string data objects have the string length as their 
first byte, so a UNITWRITE of a string will first send out the 
length byte, which is not necessarily a printable ASCII 
character. A UNITREAD to a string variable would place the first 
character read into the length byte. Again, this does not always 
lead to the desired result. It is up to the programmer to ensure 
the correct interpretation of data involved in UNIT transfers. 



6.5 IORESULT - Return Input-Output Resul t 

IORESULT is a function that can be used after an input-output 
operation to check on the validity of the operation. The 
function definition is: 

function IORESULT: integer; 

Use of the IORESULT function is only appropriate if I/O 
checking has been turned off. The $1- compiler option turns 
checking off. If I/O checking is on (as it is by default) or 
turned on via the $1+ compiler option, any I/O error generates a 
non-recoverable run-time error. 

If I/O checking has been turned off, I/O errors do not generate 
run-time errors, and the programmer can then use IORESULT to 
check the completion status of each input output operation. 

The value of IORESULT is zero if an input-output operation has 
a normal completion. If the value is non-zero, it indicates some 
form of error has occurred. See appendix A - "Messages from the 
Pascal System" for a list of error codes. 
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Example of using IOEESULT 

{$1-} { Turn off the I/O Checking } 
type 

data_file - file of text; 
var 

data: data_filer 

RESET(data, ' /source/pr inter ') ; 

if IORESULT <> then begin { <> ■ problem } 
REWRITE (data, '/source/printer • ) ; { so create it } 
if IORESULT <> then begin 

WRITELN (' Cannot create printer file 1 ); 
HALT 
end; 
end; 

In the above example, the $1- comment toggle turns off the I/O 
checking for that part of the program. The IORESULT function 
returns a non-zero value to mean that the file could not be 
RESET, so the program then tries a REWRITE statement. If that 
fails, then the program halts. 
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Program Structure 



A Pascal program is a collection of declarations and statements 
which is meant to be translated, via a compilation process, into 
a relocatable object-module. Object modules obtained from other, 
separate compilations can be combined, via a linking process, 
into a form suitable for execution. 

The collection of declarations and statements may also include 
compiler directives which control the compilation, and do not 
change the meaning of the program. 



7.1 Compilation Units 

SVS Pascal implements independent compilation via the unit 
concept of UCSD Pascal. A compilation unit is either a program (a 
main program) , or a unit. A complete executable program consists 
of a single program and zero or more units. 

A program is a main program, consisting of all the statements 
between a program statement and an end. statement. The main 
program is described in more detail later in this chapter, in the 
section entitled "Program Heading". 

A unit is a collection of declarations and statements packaged 
so as to make parts of the declarations in the unit public to 
other parts of the same compilation unit or separate compilation 
units. Units are useful for sharing common code among different 
programs or as a means to avoid compiling a huge program every 
time one line is changed. Units are compiled separately. 

A program or unit that uses another unit is known as a "host". 
A host uses other units' declarations by naming those units in 
uses declarations. The uses clause appears after a program 
heading or it appears in a unit at the start of the interface 
section (see below) . 
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A unit contains two major parts, namely an interface part which 
describes how other units view this unit, and an implementation 
part which supplies the actual body of code to implement this 
unit. 

<unit> ::= unit <identif ier>; 
<interface part> 
•^implementation part> 
end. 

<interface part> ::= interface 
<uses clause> 
<constant definition part> 
<type definition part> 
<variable definition part> 
<procedure and function declaration part> 

< implementation part> : := 

implementation 

<label declaration part> 
<constant definition part> 
<type definition part> 
<variable definition part> 
<procedure and function declaration part> 

<uses clause> ::« uses <identifier> { , <identif ier>} ; 

The interface part declares constants, types, variables, 
procedures and functions that are globally available. A host 
program that uses that unit has access to those objects just as 
if they had been declared in the host program itself. 

Procedures and functions declared in the interface part consist 
only of the procedure or function name and the description of the 
formal parameters. These declarations serve as procedure or 
function prototypes - there is no executable code associated with 
them. This is equivalent to a forward declaration except that no 
forward attribute is allowed. 

The implementation part follows the interface part. Local 
objects are declared first, then the global procedures and 
functions are declared. Formal parameters and function result 
type declarations are omitted from the implementation part, since 
they were already declared in the interface part. 

A unit can consist entirely of interface declarations 
(constants, types and variables). There need not be any 
procedure or function declarations. 

The overall layout of a unit is like this: 
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unit GanipGanop; 
interface 



This part declares the 
interface section 



uses names of 

other units 



This part is optional if 
GanipGanop does not use any 
things from other units 
Note that any declarations 
imported from other units are 
also public to any unit that 
uses GanipGanop. 
declarations and 
procedure headings 

for the GanipGanop unit. 

All these declarations and procedure 
headings are PUBLIC to other units , 



implementation 



{■ 



end. 



This part declares the 
implementation section 
declarations and 

code for the GanipGanop unit. 

All these declarations and code are 

PRIVATE to GanipGanop } 

{ of the GanipGanop unit } 



7.2 Declarations and Scope of Identifiers 



Declarations introduce program objects, together with their 
identifiers, which denote these objects elsewhere in a program. 

<declaration> : := <label declaration> 

<constant declaration> 
<type declaration> 

<variable declaration> 

<procedure or function declaration> 

The program region (over which all uses of an identifier are 
associated with the same object) is called the scope of the 
identifier. Within a compilation unit, such a region is either a 
unit body or a block body. In the case of a unit, the scope is a 
declaration list. In the case of a block, the scope is a 
statement list preceded by an optional declaration list. 

The scope of an identifier is determined by the context in 
which it was declared. 
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A program or a unit is a static construct intended to control 
the scope of identifiers according to these rules: 

1. The scope of an identifier declared at the outermost level 
of a program is the body of that program. 

2. The scope of an identifier listed in the interface part of 
a unit is the body of that unit, and is also extended 
"outwards" to any other unit that uses that unit. 

3. Identifiers declared at the outermost level of the 
implementation part of a unit have the entire body of that 
unit as their scope, but are private to that unit. 

Procedure or function blocks also control the scope of 
identifiers. There are both similarities with, and differences 
from, programs or units. 

Like programs or units, blocks control the scope of 
identifiers. 

Unlike programs or units, blocks control the processing of 
declarations and determine when the declarations take effect. 

The block-structured scope rules are as follows: 

1. The scope of an identifier declared in the declaration list 
of a block is the body of that block. 

2. If the scope of an identifier includes another block, its 
scope is extended "inward" to include the body of that 
inner block, unless the body contains a re-declaration of 
that identifier. 

3. An identifier which is declared as a formal parameter of a 
procedure or function has as its scope the body of that 
procedure or function. 

4. Field selectors are identifiers introduced as part of the 
definition of a record type for the purpose of selecting 
fields of records. The scope of a field selector is the 
record in which it is declared. As with the nesting of 
procedures, the existence of an inner scope identifier 
masks the accessibility of any outer identifiers of the 
same name. Field selectors must be unique within the 
declaration of a record. 

5. Identifiers must be unique within the bounds of a given 
scope . 
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7.3 Program Heading 

The program statement identifies the main program for a Pascal 
compilation. In SVS Pascal, the program header is scanned but 
otherwise ignored. A program has the same form as a procedure 
declaration except for the heading. 

<program> ::= <program heading> {<uses clause>} <block>. 

<program heading> : := 

program <identifier> { (<program parameters>) } ; 

<program parameters> ::= <identifier> {,<identif ier>} 

The identifier following the word program is the program name. 
It has no further meaning inside the program. The program 
parameters are optional. No global identifiers in the program 
may have the same name as any of the program parameters. 

7.3.1 Predeclared Variables 

SVS Pascal supplies five pre-declared variables. First there 
are standard files j 

input is the standard file from which console input 

can be done via READ and READLN statements, 

output is the standard file to which console output is 

directed via WRITE and WRITELN statements, 

stderr is the standard error output file. On those 

operating systems which support a separate file 
for error responses, stderr is connected to that 
stream. On those operating systems which do not 
support a separate file for error responses, 
stderr is connected to the same place as output. 

Then there are the two variables associated with obtaining 
arguments from the operating system command line (see the next 
subject heading below) : 

argc is a count of the number of arguments supplied 

on the command line. 
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argv is an array of pointers to the character strings 

containing the command line arguments. 

7.3.1.1 ARGC and ARGV - Access to Command Line 

As mentioned above, "argc" and "argv" provide access to the 

Pascal program's command line as the user typed it. "argc" and 

"argv" can be considered to be defined by a declaration of the 
form: 

type 

pstring ■ ^string; 

var 

argc: integer; 

argv: array [1 .. argc] of pstring; 

Each element of argv contains a separate field from the command 
line that invoked this Pascal program. If "argc" is zero (0) , no 
attempt should be made to reference "argv". The first element of 
"argv" is the first parameter from the command line. The name of 
the command itself is not available. Avoid assigning to any 
element of "argv". 



7.4 Declarations 

7.4.1 Label Declarations 

The label declaration part declares all labels (which tag 
statements) in the statement part of the block. 

<label declaration part> ::= label <label> {, <label>}; 

7.4.2 Constant Definition 

The constant definition part declares all constant names and 
their associated values that are local to the procedure or 
function definition. 

<constant definition part> ::* const <constant definition list> 

<constant definition list> :: = 

<constant definition> {<constant definitioj 
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7.4.3 Type Definition 

The type definition part contains all the type definitions that 
are local to the procedure or function definition. 

<type definition part> ::= type <type definition list> 

<type definition list> ::= <type definition> {<type definition:*} 

7.4.4 Variable Declaration 

The variable declaration part contains a definition of all the 
variables that are local to the procedure or function. 

<variable declaration part> ::=* var <variable declaration list> 

<variable declaration list> : := 

<variable declaration> {<variable declaration>} 



7.5 Procedure and Function Declaration 



A procedure declaration or a function declaration associates an 
identifier (the procedure or function name) with a collection of 
declarations and statements. A Pascal statement can then cause 
that procedure to be executed (activated) by giving its name in a 
procedure reference statement. A function declaration is similar 
to that of a procedure with the additional capability that a 
function can compute and return a value, called the value of the 
function. A function is referenced by giving its name in an 
expression, when the value of the function appears as a factor in 
that expression. 

The type of value that a function returns is specified when the 
function is declared. The function return value is the value 
last assigned to its function' identifier before a return is made 
from the function. Returning from a function without ever 
assigning a value to the function designator (for the current 
activation of the function) produces an undefined result (usually 
with undesirable results from the programmer's viewpoint). 

Using a procedure or function identifier within the declaration 
of that procedure or function implies recursive activation of 
that procedure or function, except when a f unci ion identifier 
appears on the left hand side of an assignment statement, 
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(implying assignment to the function variable rather than 
recursive activation - see below) . 

<procedure declaration ::■ <procedure heading> <block> 

<block> ::» <label definition part> 

<constant definition part> 
<type definition part> 

<variable declaration part> 

<procedure and function declaration part> 
otatement part> 

<statement part> ::= begin otatement list> end 

<statement list> ::■ <statement> {; <statement>} 

All the definition and declaration parts above are optional, 
with the exception of the otatement part>. 

The procedure heading specifies the identifier that names the 
procedure, and any formal parameters for that procedure. 

Procedure parameters are either value parameters, variable 
parameters, or procedure or function parameters. 

<procedure heading> : := 

procedure <identif ier>; {<attribute>;} 
| procedure <identifier> (<formal parameters>) ; {<attribute>; } 

<function heading> ::= 

function <identif ier>: <result type>? {<attribute>; } 
| function <identif ier>(<formal parameters<) j {<attribute>; } 

<formal parameters> ::= 

<formal parameter> {;<formal parameter>} 



< formal parameter > 



<parameter group> 



<parameter group> 

var <parameter group> 
<procedure heading> 
<function heading> 



<identifier> { ,<identif ier>} :<type identifier> 
<attribute> ::» external | forward | cexternal 
<result type> ::* <simple type> 
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Note that the "external", "forward", and "cexternal" attributes 
are optional. 

7.5.1 External and Forward Attributes 

A Pascal host can use routines that are separately compiled or 
assembled in languages other than Pascal. To use an external 
routine, the host must make a procedure or function declaration 
for that external routine just as if it is a Pascal routine that 
is declared in this compilation unit or another compilation 
unit. The declaration is then followed by the external attribute 
to indicate that the body routine does not appear in the current 
compilation unit. External routines must conform with the Pascal 
calling conventions and data representation methods as defined in 
appendix E - "Data Representations". The cexternal attribute 
means that the compiler generates calls to external procedures in 
a manner which is compatibe with the SVS C compiler. 

Pascal normally dictates that procedures and functions be 
declared before they can be referenced. There are cases when 
program layout makes this impossible, such that a procedure or 
function must be referenced before it can be declared. The 
forward attribute indicates that the particular procedure or 
function declaration consists only of the header, and that the 
body of that procedure or function appears later in the program 
source text, possible after it is referenced. A forward-declared 
procedure or function, then, is actually declared in two distinct 
parts: its header or prototype is declared, with the forward 
attribute, before any reference is ever made to it; at some later 
point in the program source text, its body is declared. At this 
later point, the formal parameter section must not appear. 

7.5.2 Parameters for Procedures and Functions 

Parameters (also called arguments) provide a dynamic 
substitution method such that a procedure or function can process 
different sets of data in different activations. 

There is a correspondence between the formal parameters 
declared in a procedure or function heading and the actual 
parameters supplied when the procedure or function is activated. 

The procedure or function heading declares a list of formal 
parameters . These are "dummy" variables that are assigned values 
when the procedure or function is activated. 



A reference to the procedure or function supplies a list of 
actual parameters that are substituted for the formal parameters, 
which then become local variables initialized to the value of the 
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actual parameters. 

There are four kinds of formal parameters: 

Value parameters. 

Variable or Reference parameters. 

Procedure parameters. 

Function parameters. 

A parameter group without a preceding specifier, implies that 
the parameter is a value parameter. 

7.5.2.1 Value Parameters 

Value parameters are those whose formal parameter declaration 
has no symbol marking them as one of the other three forms. The 
corresponding actual parameter must be an expression. In the 
body of the procedure or function, the formal parameter is 
initialized to the value of the expression at the time the 
procedure or function is activated. The formal parameter is then 
just like a local variable. The value of the formal parameter 
may be changed by assignment - the actual parameter remains 
unchanged. 

7.5.2.2 Variable Parameters 

Variable parameters , also called reference parameters , are 
those whose declarations start with the symbol var (for 
variable) . The actual parameter must be a variable of a type 
which is identical to that of the formal parameter. The formal 
parameter directly represents, and can change, the actual 
parameter's value during the entire execution of the procedure or 
function. 

var actual parameters must be distinct actual variables. It is 
a programming error to supply the same variable to more than one 
actual parameter in a procedure or function reference. 

All index computations, field selection and pointer 
dereferencing are done at the time the procedure or function 
reference is made. 

7.5.2.3 Procedure and Function Parameters 

Procedure and Function parameters are the names and parameter 
lists of procedures or functions that can be referenced by the 
current procedure. These parameters are indicated by the symbol 
procedure or function in the formal parameter declarations. Such 
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procedures or functions are called parametric . Actual parameters 
to parametric procedures and functions must be of identical type 
to those declared in the formal parameter declarations. 

Examples of Procedure and Function Declarations 

{ a procedure with only value parameters } 
procedure ByTheBook (Chapter , Verse: integer); 
begin 

Chapter :=• 1; { does not change the caller's 
version of Chapter } 
end; 



{ a procedure with variable parameters } 
procedure Change (var winds: integer); 
begin 

winds:= 76; { Changes the caller's version } 
end; 



{ the Ackerman function } 
function Ackerman (m, n: integer) : integer ; 
begin 

if m = then 

Ackerman :* n + 1 

else if n - then 

Ackerman := Ackerman (m - 1, 1) 
else 

Ackerman := Ackerman (m - 1, Ackerman (m, n - 1) ) 
end; 



{ parametric function parameter } 
function Integrate (lo, hi: real; 

what(x: real): real): real; 
var 

start: integer; 
finish: integer; 
point: integer; 
current: real; 
sum: real; 

begin 

start := TRUNC(lo) ; 
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finish :- ROUND (hi) ; 
sum :- 0.0; 

for point : = start to finish do 
begin 

current :■ point; 

sum :■ sum + what(current) ; 
end; 

Integrate :■ sum / (finish - start) ; 
end 
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Chapter 8 
Standard Procedures and Functions 



SVS Pascal (in common with other Pascal implementations) 
supplies a number of standard ("built in") procedures and 
functions. This Chapter covers those. The standard procedures 
and functions fall into several logically related groups, as 
follows: 

. String Manipulation. These intrinsics handle the SVS Pascal 
dynamic string types. 

. Memory Management. These intrinsics deal with dynamic memory 
allocation and de-allocation. 

. Arithmetic Functions. 

. Boolean Predicates. 

. Conversion Functions. 

. Miscellaneous Low Level Procedures and Functions. 



8.1 String Manipulation Facilities 

This section discusses those facilities for manipulating string 
data types in Pascal. Here is a brief summary of the facilities: 

CONCAT concatenate a number of strings into one 

string. 

COPY Extract substring of a string. 

DELETE delete characters from a string. 

INSERT insert characters into a stri 
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LENGTH determine the current dynamic length of a 
string . 

POS Scan for a pattern within a string. 

SCANEQ and SCANNE 

scan for a specific character within a string. 

8.1.1 LENGTH - Determine String Length 

LENGTH is an integer function that returns the length of a 
string expression. The function definition is: 

function LENGTH (source: string): integer; 

LENGTH returns an integer value which is the dynamic length of 
the string "source". 

The length of the string " is zero (0). 

Examples of LENGTH 

alphabet :■ ' abcdefghijklmnopqrstuvwxyz' ; 
WRITELN (LENGTH (alphabet) , ' ' , 

alphabet [1] , • ', 

alphabet [LENGTH (alphabet) ] , ■ ' , 

LENGTH ('•)); 

the following output is displayed 
26 a z 

8.1.2 COPY - Copy a Substring 

COPY returns a string which is a substring of another string. 
The function definition is: 

function COPY (source: string; 
index: integer; 
size: integer) : string; 

COPY returns a string which is a substring of the string 
"source". COPY extracts "size" characters from "source" , starting 
at the character position given by "index". 
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The first character in the string is numbered 1. 

If "index" is negative or zero, the result is a null string. 

If "index" is greater than LENGTH (source) , the result is a null 
string. 

If "index" + "size" is greater than LENGTH (source) , the result 
is a string which extends from "index" to LENGTH (source) . 

Example of COPY 

var 

left: string [100] ; 
middle: string [100]; 
right: string[100]; 
title: string [255]; 

title :=• 'Left Side. Middle Part. Right Side.'; 

left :» COPY(title, 1, 10); 

middle := COPY(title, 12, 12); 

right := COPY(title, 25, 11); 

WRITELN(left) ; 

WRITELN (middle) ; 

WRITELN (right) ; 

This should generate the output: 

Left Side. 
Middle Part. 
Right Side. 

8.1.3 CONCAT - Concatenate Strings 

CONCAT returns a string result, which is the concatenation of 
its (string) parameters. The function definition of CONCAT is: 

function CONCAT (si: string; 

s2: string; 

sn: string) : string; 

Each of the "Sn" is a string variable or a string constant or a 
literal value. There may be any number of source strings, each 
separated by a comma from the next. There must be at least two 
source strings. 
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Example of CON CAT 

title := CONCAT ( 'Here' , ', there', ', and everywhere'); 
WRITELN (title) ; 

This should generate the output: 

Here, there, and everywhere 

8.1.4 POS - Match a Substring in a String 

POS is used for string matching. The function definition is: 

function POS (pattern: string; 

inwhat: string): integer; 

POS scans from left to right trying to find an instance of the 
string "pattern" in the string "inwhat". If a match is found, POS 
returns an integer value that is the position in "inwhat" at 
which the "pattern" starts to match. 

If there is no match, the result is zero (0). 

If "pattern" is longer than "inwhat", the result is zero (0) , 
or no match. 

Example of POS 

herbs := 'Basil, Chervil, Fennel, Tarragon'; 

WRITELN (POS (' Chervil ' , herbs), ' ', POS ( 'Nutmeg ' , 

herbs) ) ; 

This should generate the output: 



8.1.5 SCANEQ and SCANNE - Scan for Character 

SCANEQ and SCANNE search a character array until they find 
(SCANEQ) or do not find (SCANNE) a specified character in the 
array. The function definitions are: 
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function SCANEQden: integer; what: char; object) : integer; 
function SCANNE(len: integer; what: char; object): integer; 

SCANxx scans "object" for "len" characters, or until the 
character "what" is found (SCANEQ) or not found (SCANNE) . The 
result is the offset into "object" where the scan stopped. If 
the character "what" is not found (SCANEQ) or is found (SCANNE) , 
SCANxx returns the value "len". If the "len" parameter is 
positive, scanning is from left to right; if the "len" parameter 
is negative, the scan proceeds from right to left, and a negative 
value is returned. 

Note that the SCANxx functions simply look at bytes in memory. 
They ignore any higher level structure that the user might 
perceive or might have imposed on the object. Thus "object" is 
simply an address in memory at which to begin scanning (or in the 
case where "len" is negative, to end the scan). Thus, for 
example, if the programmer were to do a SCANEQ on a data type of 
string [80], the length byte of that string would also be scanned, 
and the results might be unexpected. 

8.1.6 DELETE - Delete Characters from String 

DELETE removes a specified number of characters from a string. 
The procedure definition is: 

procedure DELETE (destination: string; 
index: integer; 
size: integer) ; 

"destination" is a string. "index" and "size" are integers. 

DELETE removes "size" characters from "destination", starting 
at the position specified by "index". 

If "index" is greater than LENGTH (destination) , there is no 
action taken. 

If "index" is negative or zero, there is no action taken. 

If "index" + "size" is greater than LENGTH (destination) , DELETE 
removes all characters from "index" up to the end of the 
"destination" string. 
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Example of DELETE 

var 

large: stringtlOO]; 

large :» 'A long exhausting rally, eh what, chaps'; 
DELETE(large, 8, 11); 
WRITELN (large) ; 

This should generate the output: 
A long rally, eh what, chaps 

8.1.7 INSERT - Insert Characters into String 

INSERT inserts one character string into another character 
string at a specified place. The procedure definition is: 

procedure INSERT (source: string; 

destination: string; 
index: integer); 

The "source" string is inserted into the "destination" string 
at a position determined by the value of "index". 

If the length of the result string is greater than the static 
length of the destination string, the result varies depending on 
whether run-time range checking is on or off: 

. if range checking is on (the $R+ option) , a run-time error is 
generated. 

. if range checking is off (the $R- option), the result string is 
truncated to fit into the declared length of the destination 
string. 



8.2 Storage Allocation Procedures 

Dynamically allocated storage is held in a large common storage 
pool, called a "heap". Storage is allocated from that pool by 
using the procedure NEW. Storage is released back to the pool 
(de-allocated) by using the DISPOSE procedure. Alternatively, 
some Pascal implementations handle memory de-allocation via the 
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MARK and RELEASE procedures. SVS Pascal provides MARK and 
RELEASE for compatibility. 

NEW is responsible for allocating storage. 

DISPOSE is responsible for freeing or releasing storage 
back to the common storage pool. 

MARK provides a means to "remember" the current top 

of the heap. 

RELEASE releases memory from a previously MARK'ed 
point. 

MEMAVAIL determines the amount . of memory available for 
allocation. 



8.2.1 NEW - Allocate Storage 

The procedure NEW allocates dynamically available storage. If 
"p" is a variable of type pointer to "T" , NEW(p) allocates 
storage for a variable of type n T" and assigns a pointer to that 
storage to the variable "p". There are two forms of the NEW 
procedure reference: 

NEW(p) allocates a new variable "v", and assigns the 

pointer reference of "v" to the pointer variable 
"p". If the type of "v" is a variant record, 
storage is allocated for the largest Variant of 
the record. Storage for a specific variant can 
be allocated by using the second form of the NEW 
procedure, as follows: 

NEW(p, t x , t 2 ,..., t ) 

allocates a variable of the variant, with tag 

fields t, .. t . The tag fields must be listed 

contiguously ^nd in the order of their 

declaration in the variant record type 
definition. 

If NEW is used to allocate storage for a specific variant 
record, the subsequent call to DISPOSE must use exactly the same 
variant. Any mismatch between the variants specified on the call 
to NEW and those on the DISPOSE call can damage the integrity of 
the heap, causing strange behavior at best and system crashes at 
worst. 

If NEW fails to allocate the requested storage (usually because 
the storage is not available) , the pointer variable "p" contains 
the value nil upon return from the procedure. 
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Example of NEW 



const 

UpperLimit = 255; 

type 

LArray « array [1 .. UpperLimit] of integer; 
ArrayAddr = "LArray; 

var 

head: ArrayAddr; 

NEW (head) ; 

if head » nil then 

take some recovery action 

else 
begin 

head"[l] :* 0; { zero fill array } 
MOVELEFT(head"[l] , head~[2], 

SIZEOF (integer)* (UpperLimit - 1) ) ; 

and so on 

end 



8.2.2 DISPOSE - Dispose of Allocated Storage 

DISPOSE frees (or de-allocates) dynamically allocated storage. 
The procedure reference: 

DISPOSE (p) ; 

frees up the allocated storage referenced by the pointer variable 
"p". Upon return from DISPOSE, the pointer variable "p" contains 
the value nil. 

Attempts to DISPOSE using a pointer variable that contains nil 
is a no-op and is ignored. 

If NEW was used to allocate a variable with a specific variant, 
DISPOSE should be called with exactly the same variant, else the 
heap is likely to be corrupted. 

8.2.3 MARK - Mark Position of Heap 

MARK is used to "remember'' the current position of the top of 
heap. MARK and RELEASE are used together to de-allocate memory 
and return the top of the heap to a previously MARK'ed point. 
For example, a procedure might, upon entry, MARK the heap top, 
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then allocate large numbers of variables, and then, just prior to 
exiting, RELEASE all the allocated memory. Such a situation 
might occur, for instance, in allocating the local symbol table 
for an assembly unit. At the end of the unit, all the local 
labels need to disappear - MARK and RELEASE provide a handy means 
to dispose of storage in bulk. The procedure definition of MARK 
is: 

procedure MARK (HeapPo inter : "'anything) ; 

"HeapPointer" must be a pointer - the pointer type is 
irrelevant but conventionally it is a pointer to a longint. 
"HeapPointer" must not be used for any purpose other than as a 
MARK pointer. 

8.2.4 RELEASE - Release Allocated Memory 

RELEASE is used to cut the heap back to a point previously 
MARK'ed. The procedure definition of RELEASE is: 

procedure RELEASE (HeapPointer : A anything) ; 

As for MARK, "HeapPointer" is a pointer of any type but 
conventionally is a pointer to longint. RELEASE cuts the heap 
back to the place indicated by "HeapPointer". "HeapPointer" must 
have been properly initialized by a previous call to MARK. MARK'S 
and RELEASE'S must be matched properly. 

8.2.5 MEMAVAIL - Determine Available Memory 

MEMAVAIL returns the number of bytes available for allocation 
in the storage pool. The function definition of MEMAVAIL is: 

function MEMAVAIL: longint; 



8.3 Arithmetic Functions 

8.3.1 ABS - Compute Absolute Value 

ABS(x) computes the absolute value of its argument "x". The 
type of the result is the same as the type of "x", which must be 
either integer, real, or double. 
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8.3.2 SQR - Compute Square of a Number 

SQR(x) computes the square of "x", that is, it computes x*x. 
The type of the result is the same as the type of "x", which must 
be either integer, real, or double. 

8.3.3 SIN - Trigonometric Sine 

SIN(x) computes the trigonometric sine of the argument "x". The 
type of "x" may be either integer, real, or double. The return 
type of SIN is always real or double. The argument is in 
radians. 



8.3.4 COS - Trigonometric Cosine 

COS(x) computes the trigonometric cosine of the argument "x". 

The type of "x" may be either integer, real, or double. The 

return type of COS is always real or double. The argument is in 
radians. 

8.3.5 ARCTAN - Trigonometric Arctangent 

ARCTAN(x) computes the trigonometric arctangent of the argument 
"x". The type of n x n may be either integer, real, or double. The 
return type of ARCTAN is always real or double. 

8.3.6 EXP - Compute Exponential of Value 

EXP(x) computes the exponential of the argument "x". The type 
of "x" may be either integer, real, or double. The return type of 
EXP is always real or double. 

8.3.7 PWROFTEN - Compute Ten to a Power 

The function PWROFTEN (x) returns a value which is 10 raised to 
the power specified by the argument. The function definition is: 

function pwroften (exponent: integer): real; 

The valid range of the "exponent" argument is . . +38. 
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8.3.8 LN - Natural Logarithm of Value 

LN(x) computes the natural logarithm of the argument "x". The 
type of "x" may be either integer, real, or double. The return 
type of LN is always real or double. It is an error to supply an 
argument less than or equal to zero. 

8.3.9 SQRT - Square Root of Value 

SQRT(x) computes the square root of the argument n x n . The type 
of "x" may be either integer, real, or double. The return type of 
SQRT is always real or double. It is an error to supply an 
argument less than or equal to zero. 



8.4 Predicates or Boolean Attributes 



8.4.1 ODD - Test Integer for Odd or Even 

ODD(x) determines if the argument is odd or even. The type of 
the argument "x" must be integer. The result is true if "x" is an 
odd number, false if "x" is an even number. 



8.4.2 EOLN - Determine if End of Line Read 

The function EOLN returns true if the textfile position is at 
an end-of-line character. Otherwise the EOLN function returns 
false. EOLN is only defined for files whose components are of 
type text or interactive. 

8.4.3 EOF - Determine if End of File Read 

The function EOF returns true if a read from a file encounters 
an end-of-file. EOF returns false in all other cases. To set 
EOF true for a file attached to the console, the EOF character 
must be typed. In SVS Pascal this is Control-D. For a textfile, 
EOF being true implies that EOLN is true as well. 

If a file is closed, EOF returns true. After a RESET takes 
place, EOF is false for the RESET file. If EOF becomes true 
during a GET or a READ, the data obtained is not valid. 
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8.5 Value Conversion Functions 

8.5.1 TRUNC - Truncate to Nearest Integer 

The function TRUNC (x) truncates its argument "x" to the nearest 
integer. "x" roust be of type real or double. If the result of 
truncating the argument "x" cannot be stored in an integer 
variable, the maximum integer value is returned. 

For x >= 0, the result is the largest integer <= x. 

For x < 0, the result is the smallest integer >= x. 

8.5.2 ROUND - Round to Nearest Integer 

The function ROUND (x) rounds its argument "x" to the nearest 
integer. "x" must be of type real or double. The result is of 
type integer. If the result of rounding the argument "x" cannot 
be stored in an integer variable, the maximum integer value is 
returned. 

For x >= 0, the result is TRUNC(x+0.5) . 

For x < 0, the result is TRUNC (x-0.5) . 

8.5.3 ORD - Convert Type to Integer Value 

The function ORD(x) returns an integer which is the ordinal 
number of the argument "x" in the set of values defined by the 
type of "x". The argument "x" can be any non-floating point 
scalar. For example: 

var 

one_letter : char: 
converted : integer; 

begin 

one_letter := "m"; 

converted :=« ORD(one_letter) ; 

At the end of this program fragment, the variable "converted" 
has the value 109, since that is the ordinal position of lower 
case 'm' in the ASCII character set. 
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8.5.4 0RD4 - Convert to Long Integer 

The function 0RD4(x) returns a longint which is the ordinal 
number of the argument "x". As for ORD, the argument "x" can be 
any non-floating point scalar. 

8.5.5 CHR - Integer to Character Representation 

The function CHR(x) converts its argument "x" to a character. 
The argument "x" must be an integer. The result type of CHR is 
the character whose ordinal number is "x". The argument must 
therefore lie in the range .. 255 for CHR to return a valid 
result. 



8.6 Other Standard Functions 



8.6.1 SUCC - Determine Successor of Value 

The function SUCC(x) accepts an argument which is any scalar 
type except real or double. The result of SUCC is the successor 
value of the argument, if such a successor value exists. 

SUCC(x) is undefined if "x" does not have a successor value. 

8.6.2 PRED - Determine Predecessor of Value 

The function PRED(x) accepts an argument which is any scalar 
type except real or double. The result of PRED is the predecessor 
value of the argument, if such a predecessor value exists. 

PRED(x) is undefined if "x" does not have a predecessor value. 
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8.7 Miscellaneous Low Level Routines 

8.7.1 MOVELEFT and MOVE RIGHT 

MOVELEFT and MOVERIGHT transfer a number of bytes from a source 
to a destination. MOVELEFT starts at the leftmost byte in the 
source (the first byte), while MOVERIGHT starts at the rightmost 
byte in the source (the last byte) . In all cases the source and 
destination strings can overlap, with the appropriate undesired 
results if the move is in the wrong direction. The format of 
MOVELEFT and MOVERIGHT is: 

procedure MOVELEFT (vac source, vac destination, length); 

procedure MOVERIGHT (var source, var destination, length); 

source is the place to move bytes from. 

destination is the place to move bytes to. 

length is an integer specifying the number of bytes to 

move. 

"source" and "destination" can be any sort of type. If either 
"source" or "destination" is an array, the array can be 
subscripted. If either "source" or "destination" is a record, a 
field specification can be given. 

For a MOVELEFT, the byte at "source" is moved to "destination" 
and so on until the byte at n source" + "length"-l is moved to 
"destination"+"length"-l. For a MOVERIGHT, the move starts from 
the other end, so that the byte at "source"+"length"-l is moved 
to "destination" + "length"-l and so on until the byte at "source" 
is moved to "destination". 

Neither MOVELEFT nor MOVERIGHT perform any range checking. 
They should therefore be used with a modicum of caution. 

Example of MOVELEFT 

The example shown below illustrates how MOVELEFT can be used to 
"zero fill" an array. 



Page 104 Pascal Reference Manual 



Chapter 8 Standard Procedures and Functions 



var 

manifold: array [1 .. 100] of -128 .. 127; 

manifold [1] : a 0; { place an initial zero } 
MOVELEFT (manifold [ 1] , manifold[2], 99); 

8.7.2 FILLCHAR - Fill A Storage Region With A Character 

FILLCHAR is a procedure that replicates a byte throughout a 
region of storage. The procedure definition of FILLCHAR is: 

procedure FILLCHAR(var address; integer count; char byte); 

address is the address of an arbitrary storage location 
in memory. Note that 'address' is a var 
parameter to FILLCHAR, so it may not be the 
address of a packed object. 

count is the number of times that the next parameter - 

'byte' should be replicated. 

byte is a single character value which is replicated 

throughout the region of storage starting at 
•address' and ending at ' addr ess* +' count ' -1. 

Example of FILLCHAR 

The example shown below illustrates how FILLCHAR can be used to 
"space fill" a print buffer 

var 

printbuf: array [1 .. 256] of char; 

FILLCHAR (printbuf, 256, • '; 

8.7.3 SIZEOF - Determine Size of Data Element or Type 

SIZEOF is a function that returns the number of bytes that a 
variable or type is allocated. The function definition of SIZEOF 
is: 

function SIZEOF (identifier) : integer; 

where "identifier" is a variable name or a type identifier. The 
SIZEOF function is particularly useful as a parameter to MOVELEFT 
or MOVERIGHT, or in performing unit input-output, where the 
number of bytes to transfer must be known. 



Pascal Reference Manual Page 10 5 



Standard Procedures and Functions Chapter 8 



8.7.4 POINTER - Convert Integer Expression to Pointer 

POINTER converts an integer expression to a pointer value. The 
function definition of POINTER is: 

function POINTER(expression) : universal; 

POINTER converts the "expression", which must be an integer 
expression, to a pointer value. The result type of POINTER is a 
"universal" pointer type that has the type of nil, which means 
that it may be assigned to any pointer variable. 



8.8 Control Procedures 



8.2.1 EXIT - Exit from Procedure 

EXIT provides the means to "get out of" a procedure 
prematurely. EXIT finds especial use in recursive applications 
such as expression evaluators or tree-walking procedures. Its 
effect is to cause an immediate (and clean) return from a named 
procedure or function. The procedure definition of EXIT is: 

EXIT (name) ; 

where "name" is the name of the procedure or function to be 
exited. 

If the "name" parameter is the name of a recursive procedure or 
function, the most recent activation of that procedure or 
function is terminated. 

Files that are local to an EXIT'ed procedure or function are 
not implicitly closed upon exit - they must be closed explicitly 
before the EXIT statement. 

If an EXIT statement is made inside a function before any 
assignment is made to the function identifier, the result of the 
function is undefined. 

EXIT is exactly the same as a goto a label at the end of the 
named procedure or function. 
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8.8.2 HALT - Terminate Program with Return Value 

The HALT procedure terminates the currently executing program. 
HALT returns a value to the host operating system to indicate a 
successful termination or an error termination. The procedure 
definition of the HALT procedure is: 

HALT(i: integer); 

The "i" parameter is optional. If the " i" parameter is 
omitted, by simply executing a: 

HALT 

statement, the correct "no error" code is returned to the host 
operating system. 

The HALT procedure also returns a value to the CALL function, 
described below. 

A list of the values which the HALT procedure can return can be 
found in appendix A - "Messages from the Pascal System". 

8.8.3 CALL - Call up Another Program 

The CALL function requests the host operating system to execute 
another program. The function definition of CALL is: 

function CALL (pathname: string; 

var infile, outfile: interactive | text; 
fargv: ?; fargc: integer): integer; 

The parameters to the CALL function are: 

pathname is a string containing the pathname of the file 
in which the program resides which is to be 
run. The definition of what constitutes a 
pathname is operating system dependent. 

infile and outfile 

specify the standard input and standard output 
for the program specified by "pathname". In 
addition, the definition specifies whether the 
standard input and standard output files for 
that program are text files residing in the file 
system, or the user's terminal. 
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fargv 



fargc 



is an array of pointers to strings consisting of 
the options and filename arguments for the 
program in question. 

is an integer count of the number of arguments 
in "fargv". 



The value returned from the CALL function is either the value 
which a program returns via a HALT call, or is one of the 
operating system error codes. A list of the values which the 
HALT procedure can return can be found in appendix A - "Messages 
from the Pascal System" . 
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Chapter 9 
Pascal Compile Time Options 



Pascal compile-time options are introduced via toggles embedded 
in comments. Comment toggle format is like: 

(*$T params*) 

or 

{$T params} 

where either the (* and *) form, or the { and } form of comment 
delimiters may be used. 

The toggle must immediately follow the opening comment 
delimiter, with no intervening spaces. 

A comment toggle is always introduced by a $ sign. The $ sign 
is followed by the toggle letter, either in upper or lower case, 
followed by the parameters for that toggle. Compiler options 
that are followed by a + or - may be given in a list: 

{$C+,I+,L- } 

There must not be any spaces after the commas in the list. 
Scanning of a list of compiler options terminates if any 
incorrect syntax is encountered. 

Compiler options do not obey any of the Pascal scope rules. 
Once an option is selected by a toggle, it remains in effect 
until another toggle in the source text de-selects that option. 
Compiler options are described in the list below. 

Some of the descriptions of the compiler options make 
references to the options specified on the compiler command 
line. A description of the command line options can be found in 
appendix G - "Using The Pascal Compiler". 

$C+ or $C- Turns Code generation on (+) or off (-) . This is 
done on a procedure by procedure basis. The 
value of the options at the end of a procedure 
controls code generation. The default is C+. 
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$E filename starts listing Errors to the file specified by 
"filename". Also see the $L option below. 

$1 filename Include the file specified by "filename" at this 
point in the source. 

$1+ or $1- Turn automatic Input Output checks on (+) or off 
(-) . The default is I+. 

$L filename Make a compilation Listing on the file specified 
by "filename". If a listing file already exists, 
that file is closed and saved before the new 
file is opened. 

$L+ or $L- Turn Listing on (+) or off (-) without changing 
the listing file name. The listing filename 
must be specified before turning listing on. 
The default is $L+ (listing on) when a listing 
file has been specified on the compiler's 
command line or $L- (listing off) when a listing 
file was not specified. When the list option is 
on, the listing is directed to whatever list 
file was specified on the Pascal compiler's 
command line. 

$M+ or $M- The $M+ option specifies that the Pascal 
run-time system should check the stack and heap 
for overflow upon entry to each procedure. The 
$M+ option enables the check. The $M- option 
disables the check. The default setting is $M- 
(disable the check) . 

$P+ or $P- Specifies whether the Pascal compiler should 
prompt the user for corrective action when 
errors are detected. The $P+ option indicates 
that the compiler should prompt the user as to 
whether to continue the compilation when errors 
are detected. The $P- option disables the 
prompting feature. This feature is also 
available via the -p or +p option on the 
compiler command line. The default setting of 
the $P option is operating system dependent. 

$Q+ or $Q- Controls the amount of messages that the Pascal 
compiler prints while compiling a program. The 
$Q+ option results in fewer messages. The $Q- 
option results in more messages. The default 
setting of the $Q option depends upon the 
operating system on which the Pascal system is 
running. 
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$R+ or $R- 



$S segment 



$S+ or $S- 



$U filename 
$%+ or $%- 



Turns Range checking on (+) or off (-) . At 
present, range checking is done in assignment 
statements, on array indexes, and for string 
value parameters. The default setting is $R+. 

Places code modules into the Segment specified 
by "segment". The default segment name is 

' ' (eight spaces) , which is where the 
main program and all built-in support code is 
always linked. All other code can be placed 
into any segment. 

Is the swapping option. The $S+ option 
specifies that the compiler should run in 
swapping mode. The $S- option specifies that 
the compiler should not run in swapping mode. 
In operating systems which support generalized 
overlay schemes, swapping mode means that the 
compiler runs in less memory, at the expense of 
a considerable speed penalty. The $S+ option 
(if used) must appear before the initial program 
or unit header, else the option has no effect. 
The default setting is $S- (do not run in 
swapping mode) . 



Searches for subsequent Units in 
specified by "filename". 



the file 



Specifies that the percent sign % is a valid 
character (+) or is not a valid character (-) in 
identifiers. The default is $%-. 
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Appendix A 
Messages from the Pascal System 



This appendix describes the error messages that the Pascal 
system generates. 



A.l Compile Time Lexical Errors 



10 Too many digits in a number 

11 Digit expected after ' . ' in a real number 

12 Integer Overflow 

13 Digit expected in the exponent of a real number 

14 End of line encountered in a string constant 

15 Invalid character in input 

16 Premature end of file in source program 

17 Extra characters encountered after the end of the program 

18 End of file encountered in a comment 



A. 2 Compile Time Syntactic Errors 



20 Illegal symbol 

21 Error in simple type 

22 Error in declaration part 

23 Error in parameter list of a procedure or function 

24 Error in constant 

25 Error in type 

26 Error in field list of a record declaration 

27 Error in factor of an expression 

28 Error in variable 

29 Identifier expected 

30 Integer expected 

31 ' ( * expected 

32 ' ) ' expected 
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33 ■ [ ' expected ' 

34 ' ] * expected 

35 ' : ' expected 

36 ' ; ' expected 

37 ' «' expected 
.38 ',' expected 

39 '*' expected 

40 ' :■' expected 

41 program keyword expected 

42 of keyword expected 

43 begin keyword expected 

44 end keyword expected 

45 then keyword expected 

46 until keyword expected 

47 do keyword expected 

48 to or downto keyword expected 

50 if keyword expected 

51 ' . ' expected 

52 implementation keyword expected 

53 interface keyword expected 



A. 3 Compile Time Semantic Errors 



100 Identifier declared twice in the same block 

101 Identifier is not of the appropriate class 

102 Identifier not declared 

103 Sign not allowed 

104 Number expected 

105 Lower bound exceeds upper bound 

106 Incompatible subrange types 

107 Type of constant must be integer 

108 Type must not be real 

109 Tagfield must be a scalar or subrange 

110 Type incompatible with tagfield type 

111 Index type must not be real 

112 Index type must be scalar or subrange 

113 Index type must not be integer or longint 

114 Unsatisfied forward reference 

115 Forward reference type identifier cannot appear in a variable 
declaration 

116 Forward declaration - repetition of parameter list not 
allowed 

117 Forward declared function - repetition of result type not 
allowed 
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118 Function result type must be scalar, subrange, or pointer 

119 File is not allowed as a value parameter 

120 Missing result type in function declaration 

121 F-format for real type only 

122 Error in type of parameter to a standard function 

123 Error in type of parameter to a standard procedure 

124 Number of actual parameters does not agree with declaration 

125 Illegal parameter substitution 

126 Result type of parametric function does not agree with 
declaration 

127 Expression is not of set type 

128 Only tests for equality allowed 

129 Strict inclusion not allowed 

130 Comparison of file variables not allowed 

131 Illegal type of operand (s) 

132 Operand type must be boolean 

133 Set element type must be scalar or subrange 

134 Set element types not compatible 

-135 Type of variable is not array or string . 

136 Index type is not compatible with declaration 

137 Type of variable is not record 

138 Type of variable must be file or pointer 

139 Illegal type of loop control variable 

140 Illegal Expression type 

141 Assignment of files not allowed 

142 Case selector incompatible with selecting expression 

143 Subrange bounds must be scalar 

144 Operand type conflict 

145 Assignment to standard function is not allowed 

146 Assignment to formal function is not allowed 

147 No such field in this record 

148 Type error in read 

149 Actual parameter must be a variable 

150 Multiply defined case selector 

151 Missing corresponding variant declaration 

152 real or string tagfields not allowed in variant record 

153 Previous declaration was not forward 

154 Substitution of standard procedure or function not allowed 

155 Multiple defined label 

156 Multiple declared label 

157 Undefined label 

158 Undeclared label 

159 Value parameter expected 

160 Multiple defined record variant 

161 File not allowed here 

162 Unknown compiler directive (not external or forward) 
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163 Variable cannot be a packed field 

164 Set of real is not allowed 

165 A field of a packed record cannot be a var parameter 

166 Case selector expression must be a scalar or a subrange 

167 String sizes must be equal 

168 String too long 

169 Value out of range 

170 Cannot take the address of a standard procedure or function 

171 Assignment to function result must be done inside that 
function 

172 Control variable of a for statement must be local 

173 BUFFERED or UNBUFFERED expected 

174 NORMAL, LOCK, PURGE, or CRUNCH expected 

175 File variable expected 

176 Must be within the procedure or function being exited. 

190 No such unit in this file 



A. 4 Specific Limitations of the Compiler 

300 Too many nested record scopes 

301 Set limits out of range (maximum sized set is . . 2031) 

302 String limits out of range 

303 Too many nested procedures or functions 

304 Too many nested include or uses files 

305 Include not allowed in interface section 

306 Pack and unpack are not implemented 

307 Too many units 

308 Set constant out of range 

309 Maximum comparable packed array of char is of size 255 
characters 

310 Too many nested with statements 

311 Too many nested function references 

312 Record too big (maximum size is 32766 bytes) 

313 Too many elements in an array, or array too big (maximum size 
of an array is 32766 bytes, or maximum number of elements is 
32766 elements) 

314 Too many variables in one scope (the maximum allowed is 32766 
bytes in any one scope, including the global level) 

315 Too many bytes of value parameters (maximum allowed is 32766 
bytes in any one scope) . 

350 Procedure too large 

351 File name in option too long 
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A. 5 Input Output Errors 



400 Not enough room for code file 

401 Error in rereading code file 

402 Error in reopening text file 

403 Unable to open uses file 

404 Error in reading uses file 

405 Error in opening include file 

406 Error in rereading previously read text block 

407 Not enough room for intermediate code file 

408 Error in writing code file 

409 Error in reading intermediate code file 

410 Unable to open listing file 



A. 6 Code Generation Errors 



1000+ Code generator errors - in theory should never happen 



A. 7 IORESULT Error Codes 



The codes listed below are those that the IORESULT function 
returns. 

No Error - indicates a good result 

1 Parity error or CRC error 

2 Invalid device number 

3 Invalid input-output request 

4 Nebulous Hardware Error 

5 Volume went off-line 

6 File lost in directory 

7 Bad file name 

8 No room on volume 

9 Volume not found 

10 File not found 

11 Duplicate directory entry 

12 File already open 
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13 File not open 

14 Bad input information 

15 Ring buffer overflow 

16 Write protect 

17 Invalid seek 64 Device error of unknown origin 



A. 8 Codes Returned From the HALT Procedure 

The codes listed below are those that the HALT procedure 
returns either to the operating system, or to the CALL function. 

No Error - indicates a good result 

1 No room in memory for code 

2 Cannot read the executable code. file 

3 File is not a code file 

4 File must be linked before it can be executed 

5 Cannot open the code file 

6 Too many processes 

7 Not enough space for data (stack space) 

If the HALT procedure returns a code of less than zero, the 
shell halts. This feature is for use in shell scripts. 

If the HALT procedure returns a code of greater than 7, the 
shell simply prints the error number, but continues. Such error 
codes are available for user programs to convey information to 
other user programs. 
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Appendix B 
Pascal Language Summary 



.... "what is_ the use of repeating all that stuff", 
said the Mock Turtle, "if you don't explain it as you 
go along. It's by far the most confusing thing I ever 
heard 1" 

Lewis Carroll. Through the Looking Glass 



B.l Predefined Identifiers 



Constants 



maxint 



TRUE 



FALSE 



Types 



Boolean 
char 



Variables 



Argc 
Stderr 



Procedures 



CLOSE 

DELETE 

DISPOSE 

EXIT 

FILLCHAR 

GET 

GOTOXY 



interactive 
integer 



Argv 



longint 
real 



Input 



HALT 


PUT 


INSERT 


READ 


MARK 


READLN 


MOVELEFT 


RELEASE 


MOVE RIGHT 


RESET 


NEW 


REWRITE 


PAGE 


SEEK 



text 
double 



Output 



UNITCLEAR 

UNITREAD 

UNITSTATUS 

UNITWRITE 

WRITE 

WRITELN 
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Functions 








ABS 


EOF 


ORD 


SCANNE 


ARCTAN 


EOLN 


0RD4 


SIN 


BLOCKREAD 


EXP 


POINTER 


SIZEOF 


BLOCKWRITE 


IORESULT 


POS 


SQR 


CHR 


LENGTH 


PRED 


SQRT 


CONCAT 


LN 


PWROFTEN 


SUCC 


COPY 


MEMAVAIL 


ROUND 


TRUNC 


COS 


ODD 


SCANEQ 


UNITBUSY 



B.2 Pascal Syntax Definitions 



Syntactic constructs enclosed between. "angle 
brackets" < and > define the basic language elements. 
Every language construct should eventually be defined 
in terms of basic lexical constructs defined in the 
remainder of this appendix. 

A construct appearing outside the angle brackets 
stands for itself, that is, it is supposed to be self 
denoting. Such a construct is known as a terminal 
symbol . Terminal symbols and reserved words appear In 
bold face text throughout this manual. 

The symbol ::=« is to be read "defined as". 

The symbol .. means "through", indicating an ordered 
sequence of things where only the start and end 
elements are specified. (The reader is left to infer 
the middle elements) . For example, the notation 
'a 1 .. 'z' means "the ordered collection starting with 
the letter 'a', ending with the letter ' z', and 
containing the letters 'b 1 , , c'.... , x', 'y' in 
between". In other words, all the lower case letters. 

The "vertical bar" symbol | is read as "or". It 
separates sequences of elements that represent a choice 
of one out of many. 

The metalanguage construct {•••} (elements inside 
braces) enclose elements which are to be repeated "zero 
to many times". Although the braces are also used as 
one of the forms of comment delimiters in Pascal, this 
should not cause any ambiguity. The one case where 
ambiguity would occur is in the definition of comments, 
and this is explicitly pointed out at that time. 
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The Pascal compiler recognizes the following alphabet or 
character set: 



<letter> 
<digit> 
<hex digit> 
<ASCII graphic characters> 



!- 'A' 

:= '0' 



• 9 . 



z • , and • ' 



<digit> | 'a' .. 'f 
I - # $ % & ' ( ) * = 
@ " \ ~ M } I : 1 



<identif ier> 



<letter> { <letter> | <digi't> } 



<unsigned integer> ::=» <digit> {<digit>} 
<unsigned real> ::= 

<unsigned integer >.<unsigned integer > 

<unsigned integer>.<unsigned integer>E<scale factor> 

<unsigned integer>E<scale factor> 

<unsigned integer>.<unsigned integer>D<scale factor> 

<unsigned integer>D<scale factor> 

<unsigned number> ::» <unsigned integer> | <unsigned real> 

<scale factor> ::= <unsigned integer> | <signxunsigned integer> 

<sign> : :» + | - 

<hex number> ::» $<hex digit> {<hex digit>} 

<string> : :=■ '<character> {<character>} ' 

<character value> ::= \< two digit hexadecimal number> 

<label> ::= <unsigned integer> 

<comment> ::* { <any printable characters except "}"> } 

| (* <any printable characters except "*)" *) 

<any printable character> includes carriage-return, line-feed, 

tab, and so on. 



<constant identifier> 
<constant> 



:■ <identifier> 

<unsigned number> 
<sign> <unsigned number> 
<constant identifier> 

<sign> <constant identifier> 
<string> 
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<constant definition> ::■ <identifier> - <constant> 

<type declaration> ::■ type <type speo {;<type speo} 

<type speo ::■ <type identifier> ■ <Pascal type> 

<simple type> ::* <scalar type> 

otandard type> 
<subrange type> 
<type identifieo 

<scalar type> ::» (<identif ier> { , <identif ier>}) 

<subrange type> ::■ 

<subrange type identifier > | <lower> .. <upper> 

<lower> ::■ <signed scalar constant> 
<upper> ::■ <signed scalar constant> 
<structured type> ::■ <unpacked structured type> 

| packed < unpacked structured type> 

<unpacked structured type> ::■ <array type> 

<string type> 
<record type> 
<set type> 
<file type> 



<array type> ::■ array [<index list>] of <type> 
<index list> ::» <simple type> { f <simple type>} 
<component type> ::■ <type> 

<string type> ::=» string [<static length>] 
<stafcic length> ::■ integer constant in the range 1 .. 255 

<record type> ::- record <field list> end; 
<field list> ::- <fixed part> 

I <fixed part> ; <variant part> 

I <variant part> 

<fixed part> ::» <record section> {; <record section>} 
<record section> ::- <field identifier list> : <type> 
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<field identifier list> s:= <field identifier> { r <field identifier>} 

<variant part> ::= 

case {<tag field>} <type identifier> of <variant list> 
<variant list> ::= <variant> {; <variant>} 
<variant> ::= <case label list> s (<field list>) 
<case label list> ::= <case label> {, <case label>} 
<case label> ::= <constant> 
<tag field> ::= <identif ier>: 

<set type> ::=> set of <simple type> 

<file type> ::= file of <type) 
| file 

<pointer type> ::■ ~<type identifier 
<variable declaration> ::» 

<identifier> { ,<identif ier>} : <data type>; 

<variable> ::= <entire variable> 

I <component variable> 
I <referenced variable> 

<entire variable> ::= <variable identifier> 

<component variable> ::■ <indexed variable> 

I <field designator> 
I <file buffer> 

<indexed variable> ::= <array variable> <subscript list> 

oubscript list> ::= [ <expression> { ,<expression> } ] 

J [ <expression> ] . { [ <expression> ] 

<field designator> ::= <record var iable>. <f ield identifier 

<file buffer> :j= <file variable^ 
<file variable> ::= <variable> 

^referenced variable> ::= <pointer variable>~ 
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<pointer variable> ::■ <variable> 

<unsigned constant> ::» <unsigned numbet> 
<string> 

<constant identifier> 
nil 

<f actor > ::» <variable> 

<unsigned constant> 
<function designator> 
<set constructor> 
(<expression>) 
not <f actor > 

<set constructor> ::■ I <element> { r <element>} ] 
<element> ::= <expression> 

| <expression> .. <expression> 

<term> : :• <factor> 

| <term> <multiplying operator> <factor> 

<simple expr> :s = <term> 

I <simple expr> <adding operator> <term> 
I <adding operator> <term> 

<expression> : :- 

<simple expr> 
| <simple expr> <relational operator> <simple expr> 

<multiplying operator> ::» * | / | div | mod | and 

<adding operator > ::» + | - | or 

<sign operators ::= + | - 

<relational operator > ::=» ■ | <> | '> | < | >- | <- | in 

ossignment statement> ::■ 

<variable> :» <expression> 
| <function identifier> :=» <expression> 

<procedure call statement> : :« 

<procedure identif ierxactual parameter list> 
| <procedure identifier> 

<actual parameter list> ::= 

(<actual parameter > {,<actual parameteo}) 
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octual parameter> ::= <expression> 

I <procedure identifier> 
I <function identifier> 

<structured statement> ::» <begin statement> 

<if statement> 

<while statement> 
<repeat statements 
<for statement> 
<case statement> 

<begin statement> : := begin <statement list> end 
<statement list> ::» <statement> {; <statement>} 

<if statement> ::» 

if <Boolean expression> then <statement> 

| if <Boolean expression> then <statement> else <statement> 

<case statement> ::=■ case <expression> of <cases> 
{otherwise: <statement>} end 

<cases> ::» <a case> { j <a case>} 
<a case> : :» 
<selection speo { r <selection speo} : <statement> 

<selection speo ::=« oimple constant scalar expression> 

<while statement> ::=■ while <expression> do <statement> 

<repeat statement> ::= repeat <statement> until <expression> 

<for statement> ::« 

for <control variable> :=« <for list> do <statement> 

<for list> ::■ <initial value> to <final value> 

| <initial value> downto <final value> 

<control variable> ::» <identifier> 

<initial value> ::= <expression> 
<final value> ::= <expression> 
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<with statement> ::» 

with <record variable> {,<record variable>} 

do <statement> 

<goto statement> ::■ goto <label> 

<unit> ::■ unit <identif ier> ; 
<interface part> 
<impementation part> 
end. 

< inter face part> ::- interface 

<uses clause> 
<constant definition part> 
<type definition part> 
<variable definition part> 
<procedure and function declaration part> 

< implementation part> ::- implementation 
<label declaration part> 
<constant definition part> 
<type definition part> 
<variable definition part> 
<procedure and function declaration part> 

<uses clause> ::« uses <unit name> {,<unit name>} 

<declaration> ::= <constant declaration> 
<type declaration> 

<variable declaration> 

<procedure or function declaration 

<program> ::= <program heading> <block>. 

<program heading> ::« 

program <identifier> (<program parameters>) ; 

<program parameters> ::■ <identifier> {, <identif ier>} 
<label declaration part> ::=• label <label> {, <label>}; 
<constant definition part> ::= const <constant definition list>; 
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<constant definition list> ::=» 

<constant definition> {; <constant definition>} 

<type definition part> ::= type <type definition list>; 

<type definition list> ::= <type definition> {; <type definition:*} 

<variable declaration part> : :■ var <variable declaration list> 

<variable declaration list> ::= 

<variable declaration> {;<variable declaration>} 

<procedure declaration> ::=■ <procedure heading> <block> 
<f unction declaration> ::= <f unction heading> <block> 

<block> ::= <label definition part> 

<constant definition part> 
<type definition part> 

<variable declaration part> 

<procedure and function declaration part> 
<statement part> 

<statement part> ::= begin <statement list> end 

<statement list> ::= <statement> {; <statement>} 

<procedure headings ::= 

procedure <identif ier>; {<attribute>; } 
| procedure <identifier> (<formal parameters>) ; 

{<attribute>; } 

<function heading> : := 
function <identif ier> Kresult type>; {<attribute>; } 
| function <identifier> (<formal parameters>) : 

<result type>; {<attribute>;} 

<formal parameters> ::» <formal parameter> {;<formal parameter>} 

<formal parameter> ::= <parameter group> 

var <parameter group> 
<procedure heading> 
<function heading> 

<parameter group> ::= 

<identifier> { , <identif ier>} :<type identifier> 

<attribute> ::= external | forward | cexternal 
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<result type> ::» <simple type> 
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Appendix C 
Relationships to ISO Pascal 



Myself when young did eagerly frequent 

Doctor and Saint, and heard great argument 

About it and about: but evermore 

Came out by the same door as in I went. 

Omar Khayam, The Rubaiyat 

The International Standards Organization (ISO) and the American 
National Standards Institute (ANSI) are engaged in a joint effort 
to define a Pascal Standard. 

In general, SVS Pascal conforms to the (proposed) ISO Pascal 
standard as defined in Pascal User Group News, Number 20, 
December 1980. There are however some differences that are 
spelled out here. 

In SVS Pascal, only eight characters are significant in 
identifiers. 

The Pascal standard procedures PACK and UNPACK are not 
supplied. 

Conformant arrays are not implemented in accordance with the 
level (U.S) standard. 

There is a small difference in the way that a text file is 
handled if the text file is associated with an interactive 
terminal. 

There is a string basic data type implemented. 

There is a double basic data type implemented. The double data 
type is a double precision real data type. 

There is an otherwise clause in the case statement. This 
provides for a "what to do if the case selector matches none of 
the cases". Standard Pascal considers this situation an error. 
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SVS Pascal implements a longint data type, which occupies four 
bytes instead of the two bytes of the standard integer data 
type. 

The and, or, and not operators can be applied to operands of 
type integer as well as operands of type Boolean. When applied to 
operands of type integer, these operators perform bitwise logical 
and, logical or, and logical not operations on their operands. 



SVS Pascal supports many extensions, 
the UCSD P-System. 



These mainly derive from 
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Appendix D 
Relationships to UCSD Pascal 



The University of California at San Diego (UCSD) implemented a 
widely used Pascal system, oriented towards small, personal 
computer systems. This implementation is known as UCSD Pascal. 

SVS Pascal uses a number of ideas from UCSD Pascal. The main 
areas where SVS Pascal conforms to UCSD Pascal are: 

1. Independent compilation is supported through the unit 
concept of UCSD Pascal. The interface, implementation and 
uses statements are implemented. 

2. There is an include capability. 

3. Many of the UCSD Pascal compatible standard procedures and 
functions are implemented the same as UCSD Pascal. 



D.l Differences from UCSD Pascal 



In SVS Pascal, the underline character _ is significant in 
identifiers. In UCSD Pascal it is ignored so that the 
identifiers "Space_Out" and "SpaceOut" are identical. In SVS 
Pascal they are considered two different identifiers. 

SVS Pascal supports a long integer type, with the predefined 
type name longint. The UCSD construct integer [nn] is not 
implemented. 

There is a double basic data type implemented. The double data 
type is a double precision real data type. 

Fields of packed records and elements of packed arrays can 
never be passed as reference parameters to procedures, even in 
those places where UCSD Pascal allows. 
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The SVS Pascal string type packed array [low. .high] of char must 
have a lower bound of 1 to be compatible with literal strings, or 
to be used in array comparisons. UCSD Pascal allows any lower 
bound . 

SVS Pascal does not have the reserved word segment. 
Consequently there is no segment procedure or segment function. 

To segment a SVS Pascal program, use the $S compiler option, 
which directs the compiler to place generated object code in a 
named segment. See the Chapter on "Running the Compiler". That 
Chapter contains a section on compiler options. 

SVS Pascal does not implement unit initialization code. 

SVS Pascal does not supply special units such as APPLESTUFF or 
TURTLEGRAPHICS . 

SVS Pascal does not have any default string length. Instead of 
the declaration 

var xi string; 

use the declaration 

var x: string [80]; 

SVS Pascal does not have a predefined file called "keyboard". 

SVS Pascal implements sets with elements thru 4095, whereas 
UCSD Pascal implements thru 511. 

Packing algorithms for arrays and records are different. 

Internal storage for sets is different. 

SVS Pascal does not support comparison of arrays and records, 
with the single exception that packed array [l..n] of char can be 
compared. 

Predefined string procedures and functions must have string 
variable or string literal parameters. That is, not packed array 
of char or char variable parameters. 

SVS Pascal does not implement the procedure STR, since there is 
no integer [nn] type. 

The file procedures RESET and REWRITE require two parameters, 
namely (file, string) . 

End-of-file character from the keyboard is Control-D instead of 
Control-C. 
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SVS Pascal text files must be declared as packed file of char. 

SVS Pascal text file reads allow additional parameters of 
packed array of char. 

SVS Pascal text file writes allow additional parameters of 
packed array of char and Boolean. 

SVS Pascal does not implement the UNITWAIT intrinsic. 

SVS Pascal implements the procedure 

UNITSTATUS (UnitNumber , Address, Integer) 

SVS Pascal does not implement TREESEARCH. 

SVS Pascal limits the EXIT procedure to exiting statically 
compiled procedures or functions or the main-program. The 
argument to EXIT must be the name of the routine to exit. That 
is, EXIT (PROGRAM) is not allowed. 

The MEMAVAIL procedure returns the number of bytes of available 
memory. The return parameter is of the type longint. See the 
Section on "Memory Management". 

SVS Pascal implements two procedures SCANEQ (scan equal) and 
SCANNE (scan not equal) , whereas UCSD Pascal implements a single 
SCAN procedure with a ■ or <> parameter. 

SVS Pascal does not have any INTRINSIC units. 

SVS Pascal does not implement the unit initialization section 
in units. 

SVS Pascal implements an optional otherwise clause in case 
statements. If the otherwise clause is present, it must be the 
last statement. For example: 

case huh of 

1: do_this; 

3,5: do_that; 
otherwise: 

do_the_other ; 
end; 

SVS Pascal implements true global goto statements. The UCSD 
Pascal {$G+} compiler option is not needed in order to use goto 
statements. 

SVS Pascal has predeclared variables ARGC and ARGV that 
describe the number and value of any parameters passed from the 
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command line to a running program. 

Procedures and functions may be passed as parameters. The 
implementation is consistent with the proposed ISO standard 
Pascal. 

ORD (Boolean Expression) works properly in SVS Pascal. 

The mod operator works properly in SVS Pascal. 

SVS Pascal has added the unary operator §, which stands for 
"address of. Placing the G in front of a variable, function, or 
procedure, generates the address of that entity. The type 
returned is the type of nil, that is, it can be assigned to any 
pointer variable. The § operator does not work with most of the 
predefined procedures and functions such as ORD or READLN. 

SVS Pascal has added the function ORD 4. It is the same as ORD 
except that it returns a 32-bit integer. 

All integer arithmetic operations are done at a precision of 
either 16 or 32 bits, depending on the maximum size of any 
arguments. The rules are similar to FORTRAN'S single and double 
precision reals. 

SVS Pascal statement labels are restricted to the range thru 
9999, as in the ISO Pascal standard. 

SVS Pascal provides for hexadecimal integer constants. A 
hexadecimal constant is prefixed with a $ sign. Hexadecimal 
numbers must be 32 bits long to be considered signed numbers, 
that is, $FFFF represents 65536, not -1. To represent -1, code 
the hexadecimal constant $FFFFFFFF. 

The and, or, and not operators can be applied to operands of 
type integer as well as operands of type Boolean. When applied to 
operands of type integer, these operators perform bitwise logical 
and, logical or, and logical not operations on their operands. 
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Appendix E 
Data Representations 



This appendix describes the ways that SVS Pascal represents 
data in storage, how that data is packed for data objects that 
have the packed storage attribute, and the mechanisms for passing 
parameters to procedures and functions. This appendix is 
intended as a guide to those programmers who wish to write 
modules in languages other than Pascal and have those modules 
interface to Pascal. 



B.l Storage Allocation 

This section describes the way in which storage is allocated to 
variables of various types. The storage allocation described 
here is for unpacked items. 

In general, any word value is always aligned on a word 
boundary. Anything larger than a word is also aligned on a word 
boundary. Values that can fit into a single byte are aligned on 
a byte boundary. 

A Boolean variable 

occupies one byte of storage, aligned on a byte 
boundary. A value of represents the value 
false. A value of 1 represents the value true. 
Any other value is an "undefined" Boolean 
value. 

A scalar (ordinal) type 

of 128 elements or less, occupies one byte of 
storage, aligned on a byte boundary. If there 
are more than 128 elements in the scalar types, 
it then occupies a word. Scalar types are 

assigned the values 0, 1, 2, , n-1, where 

"n" is the cardinal number of elements in the 
scalar. 
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Subrange elements 

in the range -128 .. 127 occupy one byte, 

aligned on a byte boundary. A subrange element 

in the range -32768 . . 32767 occupies one word, 

aligned on a word boundary. A subrange element 
greater than that occupies two words, aligned on 
a word boundary. 

An unpacked char element 

is considered to be a subrange of . . 255. This 
means that it occupies a word. 

An integer element 

occupies one word, aligned on a word boundary. 

A longint element 

occupies two words, aligned on a word boundary. 

real elements occupy two words, aligned on a word boundary. A 
real element has a sign bit, an 8-bit exponent 
and a 23-bit mantissa. SVS Pascal real elements 
conform to the IEEE standard for reals as 
defined in the March 1981 Computer magazine. 
The layout of a real element is shown below. 
The range of real numbers is approximately 
-3.4E-38 .. +3.4E38, with a precision of 
approximately seven decimal places. Normal 
arithmetic operations upon real data types can 
result in the "extreme values" of plus infinity, 
minus infinity, or Not a Number (NaN) . These are 
described below. 

double elements occupy four words, aligned on a word boundary. 
A double element has a sign bit, an 11-bit 
exponent and a 52-bit mantissa. SVS Pascal 
double elements conform to the IEEE standard for 
double precision as defined in the March 1981 
Computer magazine. The layout of a double 
element is shown below. The range of double 
numbers is approximately -1.8D-308 .. +1.8D308, 
with a precision of approximately 15 decimal 
places. Normal arithmetic operations upon 
double data types can res r ult in the "extreme 
values" of plus infinity, minus infinity, or Not 
a Number (NaN) . These are described below. 

Whatever the size of the data element in question, the most 
significant bit of the data element is always in the lowest 
numbered byte of however many bytes are required to represent 
that object. The diagrams below should clarify this. 
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E.2 Representation of Integers 



bit — > 7 
+ — . — + 

8-bit integer | byte | 
+ — + 

15 

+ + + 

integer | byte | byte 1 | 
+ + + 

31 

+ — + + + + 

longint | byte | byte 1 | byte 2 | byte 3 | 
+ — + + + + 



E.3 Representation of Reals and Doubles 

real and double data elements are represented according to the 
proposed IEEE standard as defined in Computer magazine of March, 
1981. The diagrams below illustrate the representation. 

31 30 23 22 

+ + + + 

| S | Exponent | Mantissa | 

+ ■+ + — + 

real Data Representation 

The format for a real or single-precision floating-point number 
is as shown above. The three field of a real are as follows: 

. a one-bit sign bit designated by "S" in the diagram above. The 
sign bit is a 1 if, and only if, the number is negative. 

. an 8-bit biased exponent. The values of all ones and all zeros 
are reserved values for the exponent. 

. a 23-bit mantissa. 
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63 62 52 51 

+ + + + 

| S | Exponent | Mantissa | 

+ + + + 



Sign 



I Mantissa (52 + 1 bits) 

Exponent, biased by 1023 



double Data Representation 

The parts of double numbers are as follows: 

. a one-bit sign bit designated by "S" in the diagrams above. 
The sign bit is a 1 if, and only if, the number is negative. 

. an 11 bit biased exponent. The values of all zeros and all 
ones are reserved values for the exponent. 

a normalized 52-bit mantissa, with the high-order 1 bit 
"hidden". 

A real or double number is represented by the form: 
-exponent-bias * i f 

where * f* is the bits in the mantissa. 

Normalized real and double numbers are said to contain a 
"hidden" bit, providing for one more bit of precision than would 
normally be the case. 



E.4 Representation of Extreme Numbers 

When real or double data elements are stored in the system, 
there arises the question of how to represent "values" such as 
positive and negative infinity. The discussion below describes 
the representations of these extreme numbers, and their behavior 
in expression evaluation. 

zero (signed) is represented by an exponent of zero, and a 
mantissa of zero. 

denormalized numbers 

are a product of "gradual underflow". They are 
non-zero numbers with an exponent of zero. The 
form of a denormalized number is: 
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-exponent-bias+1 * f 
where ' f is the bits in the mantissa. 

signed infinity (that is, affine infinity) is represented by the 
largest value that the exponent can assume (all 
ones) , and a zero mantissa. 

Not-a-Number (NaN) 

is represented by the largest value that the 
exponent can assume (all ones) , and a non-zero 
mantissa. The sign is usually ignored. 

Normalized real and double numbers are said to contain a 
"hidden" bit, providing for one more bit of precision than would 
normally be the case. 
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Hexadecimal Representation of Selected Numbers 



+ + 

Value | real | double 


+0 
-0 


00000000 
80000000 


0000000000000000 
8000000000000000 


+1.0 
-1.0 


3F800000 
BF800000 


3FF0000000000000 
BFF0000000000000 


+2.0 
+3.0 


40000000 
40400000 


4000000000000000 
4008000000000000 


+Infinity 
-Infinity 


7F800000 
FF800000 


7FF0000000000000 
FFF0000000000000 


NaN 


7F8xxxxx 


7FFxxxxxxxxxxxxx 



Deviations from the Proposed IEEE Standard 

Deviations from the proposed IEEE standard in this 
implementation are as follows: 

. affine mapping for infinities, 

. normalizing mode for denormalized numbers, 

. rounds approximately to nearest - 7 or more guard bits are 
computed, but the "sticky" bit is not, 

. exception flags are not implemented, 

. conversion between binary and decimal is not implemented. 
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Arithmetic Operations on Extreme Values 



This subsection describes the results derived from applying the 
basic arithmetic operations on combinations of extreme values and 
ordinary values. 

No traps or any other exception actions are taken. 

All inputs are assumed to be positive. Overflow, underflow, 
and cancellation are assumed not to happen. 

In all the tables below, the abbreviations have the following 
meanings: 



+ +. 

| Abbreviation | 



Meaning 



+ + _ H 



Den 
Num 
Inf 
NaN 
Uno 



+ _ + 

Denormalized Number 

Normalized Number 

Infinity (positive or negative) 

Not a Number 

Unordered 



+ + + 
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Addition and Subtraction 



Left I Right Operand I 

Operand | | Den | Num | Inf | NaN | 

+ + + + + + 

| | Den | Num | Inf | NaN | 



1 


Den 


1 


Den 


1 


Den 


1 


Num 


1 


Inf 


1 


NaN 


1 


1 


Num 


1 


Num 


1 


Num 


1 


Num 


1 


Inf 


1 


NaN 


1 


1 


Inf 


1 


Inf 


1 


Inf 


1 


Inf 


1 


Note 


11 


NaN 


1 


1 


Nan 


1 


NaN 


1 


NaN 


1 


NaN 


1 


NaN 


1 


NaN 


1 



Note 1: Inf + Inf » Inf; 



Inf - Inf = NaN 



Multiplication 



Left I Right Operand I 

Operand | | Den | Num | Inf | NaN | 

+ + + + + + 

| | | | NaN | NaN | 



Den 
Num 



NaN 



| Num I Inf 
.+ + + 

I Num I Inf I NaN 



Num 



Inf 



NaN 



Inf I Inf I Inf | NaN | 
+ + + + + + 

Nan | NaN | NaN | NaN | NaN | NaN | 
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Division 



Left I Right Operand 
Operand | | Den | Num | Irvf 

+ + + + + 

I NaN | I I I NaN 



NaN 



Den | Inf | Num | Num | | NaN | 

Num | Inf | Num | Num | | NaN | 

+ + + + + ._+ 

Inf | Inf | Inf | Inf | NaN | NaN | 
Nan | NaN | NaN | NaN | NaN | NaN | 


Comparison | 



Left 
Operand 



Right Operand 
| Den | Num | Inf | NaN | 
.+ + + + + 

| < I < I < I Uno I 



+ + + . + + + 

Den | > | | < | < | Uno | 
+ + + + + + 

Num | > | > | | < | uno | 
+ + + + + + 

Inf | > | > | > | | uno | 
+ . + + . + + + 

Nan | Uno | Uno j Uno | Uno | Uno | 
+ , + + + + + 



Notes: 

NaN compared with NaN is Unordered, and also results in 
inequality. 

+0 compares equal to -0. 
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Max 



Left I Right Operand 
Operand | | Den | Num | Inf | NaN 
+ + + + + 

| | Den | Num | Inf | NaN 



+ — 

1 


Den 


1 


Den 


1 


Den 


1 


Num 


-+- 
1 


Inf 


1 


NaN 


1 


I 


Num 


1 


Num 


1 


Num 


1 


Num 


1 


Inf 


1 


NaN 


1 


1 


Inf 


1 


Inf 


1 


Inf 


1 


Inf 


1 


Inf 


1 


NaN 


1 


1 


Nan 


1 


NaN 


1 


NaN 


1 


NaN 


1 


NaN 


1 


NaN 


1 




1 




— +- 






Min 














1 



Left 
Operand 



Right Operand 
| Den | . Num | Inf | NaN | 
.+ +1 + + + 

I I I I NaN I 



Den 


1 





1 


Den 


1 


Den 


1 


Den 


1 


NaN 


1 


Num 


1 





1 


Den 


1 


Num 


1 


Num 


1 


NaN 


1 


Inf 


1 





1 


Den 


1 


Num 


1 


Inf 


1 


NaN 


1 


Nan 


1 
— +_ 


NaN 


1 
-+- 


NaN 


1 


NaN 


1 


NaN 


1 


NaN 


1 



E.5 Representation of Sets 



SVS Pascal represents a set like a "giant integer". The 
zero'th element of a set is always present in the set Suppose 
that a type and a variable are defined as in this example. 



type 



days_in_year ■ set of 1 .. 366; 



blarg: days_in_year ; 
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The representation for the variable "blarg" is as in the diagram 
below: 

bit — > 366 

+ + + + + + +_. — + + + + + 

byte-> | j | j J ............ j | | j 45 | 

The number of bytes required to contain this a set of 1 . . 366 
is 366/8 which is 46 bytes. The storage is allocated accordingly 
as shown in the above diagram. The value 366 mod 8 is 6, and 
there is one unfilled bit in the least significant byte of the 
set. 



E.6 Representation of Arrays 

Components of unpacked arrays and records are allocated 
contiguously as defined above. There is no attempt made to 
conserve space in units smaller than bytes. 

Arrays are stored in row order, that is, the last index varies 
fastest. This follows from the strict definition that a 
multi-dimensional array in Pascal is actually an: 

array [first index] of array [second index] 

of array [n'th index] of whatever type; 



Representation of Pointers 

Pointers always occupy four bytes. The nil pointer is 
represented by a value of zero (0) . 
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E.7 Packing Methods 

Packed records are expensive in terms of the amount of 
generated code needed to reference a field of a packed record. 
In general, avoid packing records unless there are many more 
instances of a particular records than there are references to 
it. 

Components of a packed record are allocated in the order in 
which they appear. Components never cross word boundaries. The 
allocator never backtracks to fill in holes in the structure. 

Within a word, components are allocated on bit boundaries. The 
allocation proceeds from the least significant end of the word 
towards the most significant end. If there is not enough room in 
the current word for a component, a hole is left in the current 
word, and the next word is started. 

After allocation, it is possible that the allocator' might shift 
and expand fields in a word. For example, a signed field might 
be expanded to use the remainder of a word for faster access, or 
two 5-bit fields might be allocated a full byte each. The 
diagrams below provide graphic illustrations of the packing 
methods. In each case, a type definition is given, followed by a 
diagram of how that type is allocated. 

packed record 

a: .. 7; 

b: char; 

c: .. 3; 

d : Boolean ; 

e: .. 3; 
end; 

bit — > 15 13 12 5 4 3 2 10 
+ + + + — ,_+ + 

I a I b | c | d | e | 

+ + + + + + 
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packed record 

a: .. 4095; 
b : char ; 
end; 

bit — > 15 11 

+ + „ + 

| extended ... a | 

+ ,+ _ + 

15 

+ „ + 

I b | 

+ , _ + 



packed record 

a: .. 63; 
b: .. 63; 
end; 

bit --> 15 10 9 4 3 
+ + „ + + 

| a | b | hole | 

+ — _ , + + + 

The record above is allocated as in the above 
picture, but will be re-allocated as shown below. 

bit — > 15 14 13 8 7 6 5 

+ + .. +__.„._+ . + 

+ + + + + 

packed record 

a: -1024 .. +1023; 
b : . . 7 ; 
end; 

bit --> 15 5 4 3 2 

+ „ + + + 

| a | hole | b | 
+ . + + + 

In the last example above, the signed subrange field was moved 
up to the left hand end of the word and sign extended for faster 
access. 
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Packed arrays are also code consuming, with one exception: 
packed array of char is treated as a special case, and the 
generated code is compact. 

Elements of packed arrays are stored with multiple values in a 
byte whenever more than one value can fit in a byte. Elements 
are allocated on 1, 2, 4 or 8-bit boundaries. This only happens 
when the value requires 4 bits or less. 3-bit values are stored 
in 4 bits. 

The first value in a packed array is stored in the lowest 
numbered bit position of the lowest addressed (that is, the most 
significant) byte. Subsequent values are stored in the next 
available higher numbered bit positions in that byte. When the 
first byte is full, the same positions are used in the next 
higher addressed byte. Consider the following examples: 

var 

a: packed array [1 .. 12] of boolean; 

byte 1 bit 

+ + + + + + + + + 

| a8 | a7 | a6 | a5 | a4 | a3 | a2 | al | 

byte 2 

+ + + + + + + + + 

| Unused | al2| all| alO | a9 | 

+ + + + + + +_~ — + + 



var 

b: packed array [3 ..8] of .. 3; 

byte 1 bit 
+ + + + + + + + + 

| a[6] | a[5] | a[4] | a[3] | 
+ + + + + + + + + 

byte 2 

+ + + + + + + + + 

| Unused | a[8] | a[7] | 

+ + + + + + + + + 



var 

c: packed array [0 .. 2] of .. 7; 

or 
c: packed array [0 .. 2] of .. 15; 
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byte 1 bit 
+ + + + + + + + + 

I a[l] | a[0] | 
+ + + + + + + + + 

byte 2 

+ + + + +_, + + + + 

| Unused | a [2] | 

+ + + + + + + + + 



Pascal Reference Manual Page 149 



Data Representations Appendix E 



E.8 Parameter Passing Mechanism 

This Section describes the way in which parameters are passed 
in SVS Pascal. 

Parameters are passed on the stack. Parameters are pushed onto 
the stack in order in which they are declared in procedure and 
function declarations. 

If the callee is a function, room for the function result is 
allocated on the stack before any parameters are pushed. 

If the callee is not a procedure or function at the global 
level, the static link is the last thing pushed onto the stack 
before the routine is called. 

Upon return from a routine, all parameters are discarded from 
the stack. The only thing that should be on the stack upon 
return, is a function result. 

var parameters (call by reference) always have a four-byte 
pointer to the variable pushed onto the stack. 

Value parameters are divided into the three categories of sets, 
doubles, and everything else. 

The caller always pushes sets onto the stack. A set which 
occupies one byte is pushed with a move.b instruction. A set 
which occupies more storage than one byte is pushed with the 
least significant element in the most significant word. Thus the 
representation of a set on the stack is the same as the 
representation in memory. 

The caller always pushes doubles onto the stack as well. This 
is usually accomplished by two move.l instructions in such a 
manner that the rpresentation a double on the stack is the same 
as the representation in memory (that is, with the sign bit in 
the lowest addressed byte) . 

Other value parameters are pushed as follows: 

. a one-byte value is pushed with a move.b instruction. 

. a two-byte value is pushed with a move.w instruction. 
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a four-byte value is pushed with a move.l instruction. 

if a value is longer than four bytes, and not a double, the 
address of the data is pushed onto the stack and the called 
procedure or function copies the data into local storage. 

Procedure and function parameters are pushed as follows: 

the address of the procedure or function is pushed onto the 
stack. 

the static link is then pushed onto the stack if the procedure 
or function is not at the global (outermost) level. If the 
procedure or function is global (at the outermost level) , the 
value nil(O) is pushed onto the stack instead of the static 
link. 



E.9 Limitations On Size of Variables 

There is no limitation on the number of bytes allocatable for 
variables. However, a maximum of 30K bytes of value parameters 
cannot be exceeded. Furthermore, when more than 3~0K bytes of 
variables exist in either the main program's global scope, or in 
any local scope of a procedure or function (but not unit 
globals) , the largest values will be accessed via a pointer, 
resulting in somewhat slower code. This mechanism is transparent 
to the user, so that no changes to source code are required. 

Global variables in units are accessed via 32-bit absolute 
addressing modes. Therefore the pointer mechanism does not apply 
to units with more than 30K bytes of globals. 

The maximum size of a record variable is 32K bytes. 

There is no limitation on the size of variables which can be 
allocated by the NEW procedure. 



E.10 Compiler Generated Linker Names 

This section describes the manner in which the Pascal compiler 
generates names of local and global procedures so that the Linker 
can resolve external references at link time. 
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Procedures which are global (or external) are given the names 
which the user assigns to them. The compiler converts all such 
names to upper case, and truncates them to eight characters in 
length. 

Procedures which are local (not visible in the global scope) 
are assigned names of the form: 

$nnn 

where 'nnn' is a decimal number. The numbers may possibly have 
trailing spaces. Procedures of the same name but in different 
scopes have different names. In other words, all local names in 
a given compilation unit are unique. 

When the linker or librarian sees a collection of compiled 
units, the local names may be renumbered, but the actual name 
that the user assigned to the procedures are carried along with 
the number. 
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Appendix 6 
Pascal on the UNIX System 



This appendix describes the, specific details of using the SVS 
Pascal compiler on the UNIX Operating System. Later sections 
cover specific dependencies and features of SVS Pascal on the 
UNIX system. 



G.l Running Pascal On the UNIX System 

The Pascal compiler, pc, compiles programs written in the 
Pascal language, and optionally links (or binds) the result with 
intermediate files generated by pc or other language processors. 

The description below covers the UNIX system interface to the 
compiler. At the end of this section can be found a description 
on how to run the individual phases separately. 

NAME 

pc - Pascal Compiler 

SYNOPSIS 

pc [-o ofile] [-i] [-c] [-u] [-v] file ... 

DESCRIPTION 

pc, the Pascal compiler, accepts a list of Pascal source files 
and various intermediate texts contained in the list of files 
specified by file . The resulting executable object-module is 
placed in the file a. out , unless the -o option was specified (see 
below) . 

To understand the use of pc, the reader should be aware of the 
steps through which the compiler goes in order to turn a Pascal 



1. UNIX is a trademark of Bell Laboratories 
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source program into an executable object-file. pc goes through 
several separate phases (or passes) when compiling a program. 

pc source files must have a .pas suffix. pc generates three 
intermediate files (.i, .obj, and .o) on the way to generating 
the final executable binary file. The first phase of the 
compiler generates intermediate files with the same names as the 
source files, but with a .i suffix. These intermediate files are 
destined for processing by the code generator. 

Code generation is the second phase of the process. The code 
generator produces files of the same name as the source files, 
but with a .obj suffix. The *.obj files are the input to the 
next phase, called ulinker. 

The ulinker phase of the process performs two functions: it 
links the .obj files, resolving external references to the Pascal 
run-time library; then it converts the .obj file format into a 
UNIX-style object file, with a .o suffix. This means that one 
file in the list of files specified on the pc command line must 
contain a main program. This .o file can then be processed by Id 
- the UNIX system loader utility. 

The final stage of the process is when the Id utility generates 
the final executable object code file. 

When using pc, any combination of Pascal source files (each 
with a .pas suffix) can be combined with Pascal (or SVS FORTRAN) 
intermediate files (each with a .i suffix) , Pascal or FORTRAN 
object-code files (each with a .obj suffix) , and UNIX system 
object-code files (having .o suffixes) . When the compilation 
completes successfully, the result of the combination of all 
those files is placed in the file a. out , or in the file specified 
by the -o option. 

The -o option, if used, specifies that the file of ile (runnable 
file) whose name follows the -o option is the file to receive the 
final executable code. If the -o option is not specified, the 
resultant executable code is placed in the file a. out . 

If the -i option is used, the Pascal intermediate code (the 

result of running /lib/pascal ) is placed in a file of the same 

name as the source file, but with a suffix of .i appended. The 
compilation then terminates. 

If the -c option is used, the Pascal unlinked object-code (the 

result of running /lib/code ) is placed in a file of the same name 

as the source file, but with a suffix of .obj appended. The 
compilation then terminates. 
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If the -u option is used, the linked object-code (the result of 

running /lib/ulinker ) is placed in a file of the same name as the 

source file, but with a suffix of .o appended. The compilation 
then terminates at that point. 

The -v (for verbose) option tells pc to display a running 
progress report as it goes through each of the compilation and 
linking phases. If the -v option is specified, the compiler also 
generates a listing file, of the same name as the source file, 
but with a suffix of .1st appended. 

If only one file argument is supplied on the command line, then 
all the intermediate files (*.i, *.obj, *.o) are removed at the 
end of the compilation. If multiple file arguments are specified 
on the command line, any existing intermediate files are not 
removed. 

EXAMPLES 

pc prog 1. pas 

compiles progl.pas and places the resulting executable file in 
a. out . 

pc -o frammis prog2.pas prog3.obj 

compiles the Pascal program called prog2.pas and links the result 
with the object-file prog3.obj . The resulting executable binary 
is placed in the output file called frammis . 

FILES 



*.pas Pascal source, 

*.i Intermediate code, 

*.obj Compiled but unlinked pc object-code, 

*.o Compiled but unlinked UNIX object-code, 

/lib/paslib.obj Pascal run-time library, 

/lib/pascal Pascal compiler, 

/lib/code Code generator, 

/lib/ulinker SVS to UNIX object-file converter, 

/lib/pascterrs Pascal compile-time error message file. 

/lib/wraplib Interfaces for calling C routines. 

Note that all the files appearing in /lib above can 

alternatively reside in /usr/lib. 
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Running The Compiler Phases Separately 

The separate parts of the Pascal Language system can be run 
independently if required. The separate phases are: 

- The Pascal compiler (front end) is in /lib/pascal (or 
/usr/lib/pascal) . The compiler turns Pascal source text into 
an intermediate form suitable for processing by the code 
generator . 

- The Code Generator is in /lib/code (or /usr/lib/code) . It 
converts the intermediate file into a form which will be 
processed by ulinker. 

ulinker is in /lib/ulinker (or /usr/lib/ulinker ) . It links 
the output of the code generator, and converts the resulting 
linked file into UNIX compatible .o file format, ready for 
processing by the UNIX link-editor (Id) utility. 

Examples shown in the following subsections assume that there 
is a program called 'hello. pas', which is to be compiled, 
code-generated, linked, and link-edited, ready for execution. 



Running the Pascal Compiler Independently 

The Pascal compiler (front end) is run with a command line like 
this: 

/lib/pascal [+q] [-p] sfile -llfile -iifile -eefile 
or, 

/usr/lib/pascal [+q] [-p] sfile -llfile -iifile -eefile 

where 'sfile' is the name of a file containing the Pascal source 
program. The source is expected to be on a file with a .pas 
suffix. 

Other files (such as listing or error files) are introduced by 
the options described below. Note that there must not be any 
spaces between an option letter and its corresponding filename. 

-llfile 'lfile'is the optional name of the file to 
receive the compiler generated listing. No 
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suffix is appended to the list filename. If the 
-1 option is omitted, no listing is generated. 

-iifile 'ifile'is the optional name of the intermediate 
file destined for processing by the code 
generator. If the 'ifile' is not specified on 
the command line, the intermediate output is 
placed on a file with the same name as the 
source file (minus the .pas suffix) with a . i 
suffix appended. 

-eefile 'efile'is the optional name of a file to receive 
the compiler error summary. No suffix is 
appended to the error summary filename. An 
error summary file is not generated unless it is 
requested by the -e option. 

The +q (for quiet) 

option makes the compiler print less. The -q 
option increases the amount of data displayed. 
The default is +q (quiet) . 

In the pc UNIX command, the -q option is called 
up via the -v (for verbose) option on the 
command line. 

The +p (for prompt) 

option makes the compiler display each error on 
the standard output, and prompt for a user 
response from the standard input. The user has 
the option to continue or abort the compilation 
at that point. If the -p option is used, the 
compiler automatically continues processing and 
searching for more errors after an error is 
found. The normal default for this option is -p 
(continue automatically) . 

Example of Running the Pascal Compiler 

pascal hello. pas 

In this example, the Pascal compiler compiles the source in the 
file 'hello. pas'. The intermediate text is placed in the 
'hello. i' file. 
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Running the Code Generator 

The code generator is the second phase of a Pascal 
compilation. The code generator processes the intermediate file 
from the compiler and generates a .obj file ready for processing 
by the ulinker utility. The code generator is run simply by 
typing the command: 

/lib/code file 

or, 

/usr/lib/code file 

where 'file' is the name of the intermediate file to process. 
The intermediate file must have a .i suffix. The output of the 
code generator is a file ready for processing by ulinker. The 
output filename is the same as the input filename, minus the .i 
suffix, and with a .obj suffix appended. 

Example of Running the Code Generator 

/lib/code hello. i 

In this example, the code generator is generating code for the 
file 'hello.i'. The result of the code generation appears on a 
file called 'hello. obj'. 



Running the Ulinker Utility 

The ulinker utility links the output of the code generator, 
resolves external references to run-time routines, and converts 
the output of the code generator into a form that can be 
processed by the UNIX link-editor. The ulinker utility is run 
like this: 

/lib/ulinker [-1] ofile objfile 

or, 

/usr/lib/ulinker [-1] ofile objfile... 
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-1 if supplied, suppresses link map information. 

If the -1 option is omitted, the first filename 
on the ulinker command line must be the name of 
a file to receive the listing. 

'ofile' is the name of the file to receive the final .o 
file. 

'objfile' is a list of .obj files (and libraries) to 
process. 

The output of ulinker is a file ready for processing by the 
UNIX link-editor. 

The -1 option, if typed on the command line, tells ulinker to 
display progress information on the standard output. 

Example of Running ulinker 

/lib/ulinker -1 hello. o hello. obj /lib/paslib.obj 

This example links the 'hello. obj' file generated by the code 
generator, resolves external references to the Pascal run-time 
library, then converts the code format to a form acceptable to 
Id, the UNIX link-editor. The result appears in the ' hello. o' 
file shown on the command line. 

The Pascal run-time routines make calls upon certain C library 
routines. The interface between these is supplied by a .o file 
called 'wraplib.o', which resides either in the /lib or /usr/lib 
directories. 'wraplib.o' must be included in the link-edit 
process, after the user's .o files, and before the C library. A 
description of the interface between Pascal and C routines can be 
found later in this appendix. 

The final stage in the process of obtaining an executable 
binary file is to run the UNIX link-editor: 

Id /lib/crtO.o hello. o /lib/wraplib.o -1c 

This example links the ' hello. o' file with the run- time 
routines from 'wraplib.o' , and the C run-time library indicated 
by the -lc option on the Id command line. The 'crtO.o' file must 
come first in the link sequence, so as to get the run- time 
startup routines in the correct place. The resulting executable 
binary appears on the file 'a. out'. 
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G.2 UNIX System Dependencies 



This section covers specific features of the SVS PAscal 
compiler on the UNIX operating system. 



Un implemented Language Features 



On the UNIX operating system, these procedures are not 
implemented: 

unitread, 
unitwrite, 
unitclear , 
unitstatus, 
memavail. 



Return Values from Pascal Programs 

A Pascal program can issue the call: 

halt(O) 

to generate a UNIX system error return code, and: 

halt(l) 

to generate a normal termination code. 

This feature is provided for use with programs which are used 
in Shell scripts containing commands to test the error flag. 
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Action on Closing Files 

Contrary to what is said in chapter 6 - "input and Output" 
about the actions taken on closing a file, on the UNIX system, 
all files are closed with the 'lock' option, regardless of what 
option was actually specified in the CLOSE statement. 



English Error Messages 

The Pascal system now can display English style error messages 
by accessing the error message file which resides in the file 
/lib/pascterrs or in /usr/lib/pascterrs (pascal compile time 
errors. 
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G.3 Interfacing Pascal to UNIX C Programs 

This part of the appendix is intended to give the user some 
clues in how to link programs written in SVS Pascal with external 
routines written in C on the UNIX system. 

Because the interfaces and calling conventions differ between 
Pascal and C, Pascal routines are linked with C routines via a 
small assembler language routine called a "wrapper". The purpose 
of the "wrapper" is to make the interface between Pascal and C 
compatible with each other. 

The user must be aware of the following relationships between 
Pascal and C: 

. All C parameters expect four bytes on the stack for each 
argument, regardless of what they are. Pascal programs which 
will call C routines should declare all their parameters of 
type longint in order to maintain the four-byte parameter 
convention. 

. C parameters are pushed onto the stack in the reverse order 
from those of Pascal. So the Pascal call: 

_func(a, b, c) 

is seen by the C routine as 

func(c, b, a) 

. The C language returns function results in register DO. Pascal 
returns function results on the stack. The interface routine 
must be aware of this and act accordingly. If a value is to be 
returned, a Pascal-style external function should be declared, 
otherwise just declare the routine as an external procedure. 

. If the called C routine is to alter any of the parameters 
passed, the parameters should be declared as var parameters in 
the Pascal procedure or function declaration. The C routine 
should then treat such parameters as pointers. 

. The representation of real data in Pascal is incompatible with 
the float and double data types of C, so the user should avoid 
passing these data types. 
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. SVS Pascal does not support a double-precision floating point 
data type. 



Examples 

The four sets of declarations below are representative samples 
of some C routines and the Pascal declarations to provide the 
interface to those routines. Following the declarations, are the 
"wrappers" to interface those C routines with the Pascal 
programs. 

Pascal Declaration: 



function _add (a, b: longint) : longint; external; 
C Function: 



add(b, a) /* add two numbers */ 
int *a, *b; 

return (*a + *b) ; 



Pascal Declaration : 

procedure _hello; external; 
C Function: 



hello () /* print the word 'HELLO' */ 

printf ("HELLOl\n") ; 



Pascal Reference Manual Page 165 



Using The Pascal Compiler Appendix G 

Pascal Declaration : 

procedure _swap(var a, b: longint) external; 

C Function ; 

swap(b, a) /* swap two numbers */ 

int *a, *b; 

int temp; 

temp - *a; 
*a - *b; 
*b ■ temp; 

} 

Note that in the declarations above we have one function and 

two procedures. One of the procedures has no parameters. The 

other procedure and the function have parameters. In the 

discussions to follow, these differences will illustrate the 

different pieces of assembler coding necessary for the 
interface. 



Connecting the Pieces 

Unless the C program segments are already in the C library 
(that is, they are standard C functions), they should be compiled 
and left as .o files (using the cc -c compiler call) . 

An assembly language interface routine must be provided for 
each C routine to be called. This interface routine is called a 
"wrapper" . 

The external reference passed from the Pascal program will be 
in upper case. The wrapper must call the corresponding 
lower-case routine (the C routine) , and then clean up the stack 
on return. For every parameter that the Pascal program passes, 
four bytes must be removed from the stack . 

The wrapper must also ensure that the function return value (if 
there is one) must be pushed onto the stack from register DO. 
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Examples of Wrapper Routines 



The assembly language fragments below are the wrappers to 
interface the three Pascal and C routines shown in the examples 
above. There is a common theme throughout each routine. 

- Each wrapper declares as global (the .globl declaration) 
both the upper case name (which Pascal generates) and the 
corresponding lower case name (which C generates) . 

In all cases, Pascal places its return address on the 
stack. The wrapper pops that stack entry into register A3, 
which is guaranteed not to be clobbered by any C routines 
which are called (user written assembler codes must also 
honor this convention to avoid disaster) . 

Upon return from the C routine, the wrapper pops four bytes 
for every parameter that was passed from the Pascal 
program. 

Lastly, if the calling Pascal routine is a function which 
expects a result, the wrapper must push the C function's 
return value onto the stack from register DO. 

First there is the wrapper for the 'add' function: 



.globl _ADD,_add 
ADD: movl sp@+,a3 
jsr _add 
addl #8,sp 
movl dO,sp@ 
jmp a3@ 



declare _ADD global 
save Pascal return address 
call the C _add routine 
remove 8 bytes from stack 
put return value on stack 
return to Pascal. 



The 'add' function passes two parameters, so after the C 
routine returns it pops eight bytes from the stack. The caller 
is a Pascal function, so the return value is pushed onto the 
stack. 



Then there is the wrapper for the 'hello' procedure, which does 
not have any parameters: 



.globl _HELLO,_hello 
HELLO: movl sp@+,a3 
jsr _hello 
jmp a3@ 



declare _HELLO global 
save Pascal return address 
call the C _hello routine 
nothing to remove/return, 
so just jump to Pascal. 
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This routine has no parameters, and the caller expects no 
return value, so there is nothing to do except return to the 
caller. 

Lastly there is the wrapper for the 'swap' procedure which has 
two parameters: 



•globl _SWAP,_swap 
SWAP: movl sp@+,a3 
jsr _swap 
addl #8,sp 
jmp a3@ 



declare _SWAP global 
save Pascal return address 
call the C routine 
remove 8 bytes from stack 
nothing to return, so just 
jump to Pascal 



The wrapper should be assembled into a .o module using the 
assembler. Now, all the pieces must be presented to the loader 
(which may be done by calling the compiler). 

In addition to any "wrapper" routines that the user writes, 
there is also a file in /lib/wraplib (or /usr/lib/wraplib) which 
contains some predefined interfaces to the C run-time library. 

For example, if the pieces of the C program are in the file 
called 'zork.o 1 , and the wrapper is in 'wrp.o*, and the Pascal 
program is in 'prog.o', the pieces can be linked by typing: 

pc prog.o wrp.o zork.o 
or (more complicated) : 

cc prog.o wrp.o zork.o /lib/wraplib. o 
or (even more complicated) : 

Id /lib/crtO.o prog.o wrp.o zork.o /lib/wraplib. o -lc 

The file /lib/wraplib (or /usr/lib/wraplib) already contains 
wrappers for the C language routines: 

_CLOSE 

_CREAT 

_LSEEK 

_OPEN 

_READ 

_SBRK 

_WRITE 

These routines are recognized specially by the system. 
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